
Задача: В типизированном файле поменять местами две записи.
То есть дан номер маршрута Marshrut.NK.N, количество остановок до метро Marshrut.NK.K. Надо найти маршрут 11 и поменять его местами со след записью. Вот часть кода именной этой процедуры, помогите с сортировкой т.к. та, которая написана ниже не робит.
var
Marshrut, y: TMarshrut;
Vidtransporta: TVidtransporta;
fr: file of TMarshrut;
n, kol, k: integer;
FileName:string[80];
begin
while not eof(fr) and (kol=0) do
begin
read(fr, Marshrut);
if (Marshrut.NK.N = 11) then
begin
writeln(Маршрут: ,Marshrut.NK.N,
Количество остановок до метро: ,Marshrut.NK.K);
inc(kol);
k:=FilePos(fr)-1;
y:=FilePos(fr);
seek (fr, 0);
write (fr, y);
seek (fr, 1);
write (fr, k);
write(В файле изменена запись номер, k+1);
write(fr, Marshrut);
end;
end;
if kol=0 then
writeln(Данные, соответствующие запросу, не найдены);
CloseFile(fr);
write(Press ENTER); readln;
end;

Поясни по нормальней
Оцени ответ