Czy mógł by mi ktoś pokazać jak mam zmodyfikować kod by dane każdej osoby zapisywały się w pliku .txt
Chciał bym byście przy okazji opisali każda użyta linijkę to co przesyłam to wszystko rozumiem.
Uses Crt;
Type czlowiek = record
imie : string[10];
nazwisko : string[20];
wiek : integer;
rokurodzenia : string[10];
end;
Var
Osoba : czlowiek;
t : array [1..255] of czlowiek;
i,u,o,n : integer;
Begin
clrscr;
Writeln('O ilu osobach chcesz wprowadzić dane ?');
readln(o);
n:=0;
clrscr;
For i:=1 to o do
with t[i] do
Begin
inc(n);
Write('Uczen ');
Textcolor(red);
Writeln('nr.',n);
Textcolor(white);
Writeln;
Writeln('Podaj imie');
readln(imie);
Writeln('Podaj naywisko');
readln(nazwisko);
Writeln('Podaj wiek');
readln(wiek);
Writeln('Podaj date urodzenia');
Writeln('dd.mm.rrrr');
Readln(rokurodzenia);
clrscr;
end;
clrscr;
Writeln('Ktorej osoby dane chcesz zobaczyc ?');
Readln(u);
clrscr;
Begin
Write('Osoba ');
Textcolor(red);
Writeln('nr.',u);
Textcolor(White);
Writeln('Imie : ',t[u].imie);
Writeln('Nazwisko : ',t[u].nazwisko);
Writeln('Wiek : ',t[u].wiek,' Lat');
Writeln('Urodzony : ',t[u].rokurodzenia,'r.');
End;
readln;
end.