Witam, mam problem - chodzi o to ze chce zapisac do pliku kilka rekordow z danymi, zapisuje sie jeden a reszta jest pusta. napisałem coś takiego:
...
begin
Sciezka:=( S + '/DaneU.dta');
Assign(PlikDU, Sciezka);
Rewrite(PlikDU);
for i:=1 to LiczbaUczniow do
begin
writeln('Uczeń nr: ', i);
write('Nazwisko: '); readln(Klasa.Nazwisko);
write('Imię: '); readln(Klasa.Imie);
write('Data ur.: '); readln(Klasa.DataUr);
write('Miejsce ur.: '); readln(Klasa.MiejUr);
write('Miejsce zam.: '); readln(Klasa.MiejZa);
write('Adres: '); readln(Klasa.Adres);
write('PESEL: '); readln(Klasa.PESEL);
write('Tel. Domowy: '); readln(Klasa.TelDom);
write('Tel. Kom. Rodz.: '); readln(Klasa.TelKomR);
write(PlikDU, Klasa);
writeln;
end;
Close(PlikDU);
end;
...
Pomocy!!! z gory dzieki