Задача: В типизированном файле поменять местами две записи. То есть дан номер маршрута 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;

Поясни по нормальней