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

whilenoteof(f) do{начинаем выводить записи в таблицу}

with ch[i] do

begin

inc(i);

inc(nom);

read(f,ch[i]);

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

i:=i+1;

end;

writeln('|');

close(f); {закрылифайл}

readln;

clrscr;

end;

procedure dobavlenie; {процедурадобавления}

begin

clrscr;

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

readln(filename);

assign (f,filename);

reset(f);

i:=1;

while not eof(f) do

begin

read(f,ch[i]);

i:=i+1;

end;

writeln('vveditefio'); {начинаем заносит информацию об участнике}

readln(ch[i].fio);