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

end;

if o=5 then begin {поискпополюрезультат}

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 preblezitelnii rezyltat uchastnika'); {вводрезультата }

readln(l);

n1:=0;

for i:=1 to n do

if (ch[i].rez<=l+0.5) and (ch[i].rez>=l-0.5)

then begin

n1:=n1+1;

ch1[n1]:=ch[i];

end;

if n1<>0 then begin {вывод}

writeln('||');

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

writeln('||');

for i:=1 to n1 do