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

begin

writeln('|',fio:17,'|',voz:9,'|',ych:15,'|',stil:10,'|',rez:9:1,'|');

end;

writeln('||');

end

else

writeln('zapis ne naidena ');

readln;

end;

end;

procedure sortirovka; {процедурасортировка}

var

p:integer;

begin

clrscr;

writeln('vibirete regim sortirovki:' ); {менюсортировки}

writeln(' ');

writeln('1: sortirovka po polu fio');

writeln('2: sortirovka po polu vozrast');

writeln('3: sortirovka po polu ycheregdenie');

writeln('4: sortirovka po polu stil');

writeln('5: sortirovka po polu rezultat');

writeln;

readln(p);

if p=1 then begin {сортировкапополюфио}

writeln ('vvedite imya sozdannogo faila'); {вводимимяфайла}

readln(filename);

assign (f,filename);

reset(f);