Курсовая работа: Разработка информационно-поисковой системы "Результаты соревнований" на языке программирования Паскаль
readln(e);
n1:=0;
for i:=1 to n do
if ch[i].ych=e
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
with ch1[i] do
begin
writeln('|',fio:17,'|',voz:9,'|',ych:15,'|',stil:10,'|',rez:9:1,'|');
end;
writeln('|');
end
else
writeln('zapis ne naidena ');
readln;
end;
if o=4 then begin {поискпополюстиль}
writeln ('vvedite imya sozdannogo faila');
readln(filename);
assign (f,filename);
reset(f);
i:=1;