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

ch[i].fio:=ch[i+1].fio;

ch[i].voz:=ch[i+1].voz;

ch[i].ych:=ch[i+1].ych;

ch[i].stil:=ch[i+1].stil;

ch[i].rez:=ch[i+1].rez;

end;

n:=n-1;

close(f);

rewrite(f);

for i:=1 to n do

write(f,ch[i]);

close(f);

writeln(‘zapis udalena’);

readln;

end;

begin{тело основной программы}

whileTruedo

begin{меню программы}

clrscr;

Writeln ('':20,' *Menu* ');

Writeln ('':20,'||');

Writeln ('':20,'| 1- sozdanie novogo faila |');

Writeln ('':20,'| 2- vivod dannih |');

Writeln ('':20,'| 3- dobavlenie |');

Writeln ('':20,'| 4- poisk |');

Writeln ('':20,'| 5- sortirovka |');

Writeln ('':20,'| 6- udalenie zapisei |');

Writeln ('':20,'| 0- vihod |');

Writeln ('':20,'||');