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

chi:=ch[i];

ch[i]:=ch[j];

ch[j]:=chi;

end;

rewrite(f);

for i:=1 to n do

write(f,ch[i]);

close(f);

end;

end;

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

var m:integer;

begin

clrscr;

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]);

i:=i+1;

n:=n+1;

end;

writeln('vvedite nomer udaliaemoi zapisi'); {вводимномерзаписидляудаления}

readln(m);

for i:=m to n do