program dziennik;

uses crt;

type elements=record

rok_ur:string;

nazwisko,imie:string[20];

nr_dz:byte;

end;

var dziennik7:array[1..31] of elements;

ster :string;

ster1:char;

n,i:integer;

tekst:text;

plik:string;

begin

textcolor(white);

for i:=1 to 3 do

begin

clrscr;

write('Twoje imie : ');

readln(dziennik7[i].imie);

textcolor(red);

write('Twoje nazwisko : ');

readln(dziennik7[i].nazwisko);

textcolor(green);

write('Twoj numer w dzienniku : ');

readln(dziennik7[i].nr_dz);

textcolor(blue);

write('Kiedy sie urodziles : ');

readln(dziennik7[i].rok_ur);

end;

clrscr;

textcolor(white);

write('Podaj nazwe pliku : ');

readln(plik);

assign(tekst,plik);

rewrite(tekst);

for i:=1 to 3 do

begin

writeln(tekst,'Imie : ',dziennik7[i].imie);

writeln(tekst,'Nazwisko : ',dziennik7[i].nazwisko);

writeln(tekst,'Numer dziennika : ',dziennik7[i].nr_dz);

writeln(tekst,'Rok urodzenia : ',dziennik7[i].rok_ur);

end;

repeat

begin

writeln ('Ktory nr. chcesz obejrzec ');

readln(n);

{for i:=1 to n do}

clrscr;

writeln('Rok urodzenia : ',dziennik7[n].rok_ur);

writeln('Imie : ',dziennik7[n].imie);

writeln('Nazwisko : ',dziennik7[n].nazwisko);

writeln('Numer dziennika : ',dziennik7[n].nr_dz);

readln;

writeln('Czy chcesz zakonczyc program (tak\nie)?');

writeln('Do zobaczenia... ');

readln (ster);

end

until ster ='tak';

clrscr;

writeln('Czy chcesz zobaczyc jakis plik (t\n)?');

ster1:=readkey;

if ster1='n' then

begin

exit;

end

else

begin

write('Podaj nazwe pliku :');

readln(plik);

assign(tekst,plik);

reset(tekst);

for i:=1 to 3 do

begin

readln(tekst,dziennik7[i].rok_ur);

readln(tekst,dziennik7[i].imie);

readln(tekst,dziennik7[i].nazwisko);

readln(tekst,dziennik7[i].nr_dz);

writeln('Rok urodzenia : ',dziennik7[i].rok_ur);

writeln('Imie : ',dziennik7[i].imie);

writeln('Nazwisko : ',dziennik7[i].nazwisko);

writeln('Numer dziennika : ',dziennik7[i].nr_dz);

readln;

end;

end;

end.

---