Witam musze napisac na poniedzilek program, ktory bedzie organizerem.
Ma on zapisywac notake wraz z data i godzina do pliku txt znajdujacego w miejscu wczesniej zdefiniowanym, a nastepnie po zrownaniu sie daty wprowadzonej przez uzytkownika z data w rzeczywistosci zapiszczec(budzik) i wyswietlic notatke ktora wprowadzil uzytkownik
prosze was bardzo o pomoc siedze i nie moge tego napisac jest to dla mnie bd wazne z gory wielkie dzienki!

program organizer;
uses crt, dos;
type
notatka=
record
rok:string;
mie:string;
dzi:string;
god:string;
min:string;
sek:string;
wia:string;
end;
var
przy:notatka;
d1,d2,d3,d4,g1,g2,g3,g4:word;
d1a,d2a,d3a,g1a,g2a,g3a:string;
znak:char;
procedure dopis;
var
z:string;
a:string;
begin
write('Podaj tre˜† notatki ');
readln(a);
write('Podaj rok ');
readln(z);
przy.rok:=z;
przy.wia:=a;
write('Podaj miesiac ');
readln(z);
przy.mie:=z;
write('Podaj dzien ');
readln(z);
przy.dzi:=z;
write('Podaj godzine ');
readln(z);
przy.god:=z;
write('Podaj minute ');
readln(z);
przy.min:=z;
write('Podaj sekunde ');
readln(z);
przy.sek:=z;
clrscr;
Writeln(przy.rok,'-',przy.mie,'-',przy.dzi);
writeln(przy.god,':',przy.min,':',przy.sek);
writeln(przy.wia);
delay(2000);
end;
procedure wczytaj;
label a;
var
f:text;
i,j:byte;
znak:char;
zbior: set of char;
begin
zbior:=['a'..'z', 'A'..'Z', '0'..'9'];
assign(f, 'c:\dan.txt');
reset(f);
a:
read(f,znak);
write(znak);
delay(500);
if znak='&'then
begin
close(f);
exit;
end;
if znak='$'then goto a;
if znak IN zbior then;
begin
case j of
1: przy.rok:=przy.rok+znak;
2: przy.mie:=przy.mie+znak;
3: przy.dzi:=przy.dzi+znak;
4: przy.god:=przy.god+znak;
5: przy.min:=przy.min+znak;
6: przy.sek:=przy.sek+znak;
7:
begin
przy.wia:=przy.wia+znak;
j:=0;
end;
end;
j:=j+1;
end;
if znak='!' then
begin
writeln;
end;
goto a;
end;

begin
clrscr;
getdate(d1,d2,d3,d4);
gettime(g1,g2,g3,g4);
wczytaj;
writeln('Dzi˜ jest:',d1,'-',d2,'-',d3,' ',g1,':',g2,':',g3);
writeln('Wpisa†?? t/n');
repeat
readln(znak);
until(znak='T')or(znak='t')or(znak='n')or(znak='N');
if (znak='T')or(znak='t')then dopis;
case d1 of
2007: d1a:='2007';
end;
case d2 of
1: d2a:='1';
2: d2a:='2';
3: d2a:='3';
4: d2a:='4';
5: d2a:='5';
6: d2a:='6';
7: d2a:='7';
8: d2a:='8';
9: d2a:='9';
10: d2a:='10';
11: d2a:='11';
12: d2a:='12';
end;
case d3 of
1: d3a:='1';
2: d3a:='2';
3: d3a:='3';
4: d3a:='4';
5: d3a:='5';
6: d3a:='6';
7: d3a:='7';
8: d3a:='8';
9: d3a:='9';
10: d3a:='10';
11: d3a:='11';
12: d3a:='12';
end;
case g2 of
1: g2a:='1';
2: g2a:='2';
3: g2a:='3';
4: g2a:='4';
5: g2a:='5';
6: g2a:='6';
7: g2a:='7';
8: g2a:='8';
9: g2a:='9';
10: g2a:='10';
11: g2a:='11';
12: g2a:='12';
end;
case g1 of
1: g1a:='1';
2: g1a:='2';
3: g1a:='3';
4: g1a:='4';
5: g1a:='5';
6: g1a:='6';
7: g1a:='7';
8: g1a:='8';
9: g1a:='9';
10: g1a:='10';
11: g1a:='11';
12: g1a:='12';
end;
case g3 of
1: g3a:='1';
2: g3a:='2';
3: g3a:='3';
4: g3a:='4';
5: g3a:='5';
6: g3a:='6';
7: g3a:='7';
8: g3a:='8';
9: g3a:='9';
10: g3a:='10';
11: g3a:='11';
12: g3a:='12';
end;
repeat
clrscr;
gettime(g1,g2,g3,g4);
writeln('Dzi˜ jest:',d1,'-',d2,'-',d3,' ',g1,':',g2,':',g3);
delay(800);
until(przy.rok=d1a)and(przy.mie=d2a)and(przy.dzi=d3a)and(przy.god=g1a)and(przy.min=g2a)and(przy.sek=g3a);
writeln(przy.wia);
sound(1745);
delay(1000);
nosound;
delay(2000);
end.