Witam
Akurat tworzę bazę danych uczniów. "Zaciąłem się" na wyszukiwaniu uczniów po numerze legitymacji. Wszystko ładnie pozabezpieczałem, ale nie wypisuje szukanego ucznia. Oto kawałek kodu, z którym jest problem:
procedure szukajnr;
var
m:integer; s:string;
begin
clrscr;
reset(p);
writeln('Podaj numer legitymacji ucznia ktorego szukasz');
repeat
readln(s);
val(s,t[i].nr_leg,m);
if m>0 then
write('Numer legitymacji musi skladac sie z samych cyfr!');
if t[i].nr_leg<0 then
write('Numer legitymacji nie moze byc liczba ujemna!');
until (m=0) and (t[i].nr_leg>0);
clrscr;
for i:=1 to filesize(p) do
begin
read(p,t[i]);
if t[i].nr_leg=m then
writeln(t[i].im,' ',t[i].nazw,' ',t[i].nr_leg,' ',t[i].m_zam,' ',t[i].rok_ur,' ',t[i].im_mat,' ',t[i].im_oj);
end;
end;