Курсовая работа: Разработка информационно-поисковой системы "Результаты соревнований" на языке программирования Паскаль

writeln ('vvedite imya sozdannogo faila');

readln(filename);

assign (f,filename);

reset(f);

i:=1;

n:=0;

while not eof(f) do

begin

read(f,ch[i]);

inc(i);

inc(n);

end;

close(f);

writeln('vvedite fio uchasnika'); {водимФИОучастника}

readln(e);

n1:=0;

for i:=1 to n do

if ch[i].fio=e

then begin

n1:=n1+1;

ch1[n1]:=ch[i];

end;

ifn1<>0 thenbegin{вывод найденного участника}

writeln('||');

writeln('| FIO| VOZRAST | YCHEREGDENIE | STIL|REZYLTAT |');

writeln('||');

for i:=1 to n1 do

with ch1[i] do

begin