Работа с текстовым файлом

[gabach]

Разработать программу с подпрограммами для обработки текстового файла, используя данные варианта. Вывести исходные данные и результаты обработки.
Номер рейса самолёта, пункт назначения, время вылета, время прилёта и число свободных мест. Отсортировать список рейсов по убыванию числа свободных мест, сформировать список номеров рейсов и время их вылета в заданный город, определить наличие свободных мест на рейс с заданным направлением.

Ввод и вывод я осуществил, делал тоже самое с файлом записей всё понятно, а как сделать в текстовом файле не понимаю.

program text;

{$APPTYPE CONSOLE}

uses
  SysUtils;

//Функция для чтения кириллицы
function Rus(S:String):String;
var i:byte;
begin
  Result:='';
  for i:=1 to Length(S) do
    case S[i] of
'А'..'п': Result:=Result+Chr(Ord(S[i])-64);
'р'..'я': Result:=Result+Chr(Ord(S[i])-16);
'Ё': Result:=Result+Chr(240);
'ё': Result:=Result+Chr(241);
      else
        Result:=Result+S[i];
     end;
end;

type vremya=record
chas:00..23;
min:00..59;
end;
type
      TNomer=byte;
      TPunkt=String[20];
      TTime=vremya;
      TKolMest=1..20;
var
 n:byte;
 intl,intr:integer;
 fi,fo:textfile;

//Процедура ввода
procedure vvod(k:byte; var fx:textfile);
 var i:integer;
     n:tnomer;
     st:tpunkt;
     vilet,prilet:TTime;
     kol:TKolMest;
 begin
  rewrite(fx);
  writeln(fx,' ':30,rus('Рейсы:'));
  writeln(fx);
  writeln(fx,rus('   Номер         Пункт          Вылёт        Прилёт     Места'));
  writeln(fx);
  for i:=1 to k do
   begin
    writeln(rus('Введите номер рейса'));
    readln(n);
    writeln(rus('Введите пункт назначения'));
    readln(st);
    writeln(rus('Введите время вылета'));
    readln(vilet.chas,vilet.min);
    writeln(rus('Введите время прилёта'));
    readln(prilet.chas,prilet.min);
    writeln(rus('Введите кол-во мест'));
    readln(kol);
    write(fx,' ':1,n:5,' ':3,st:15,
             ' ':8,Vilet.chas,':',Vilet.min,
             ' ':9,Prilet.chas,':',Prilet.min,
             ' ':6,kol:2);
    writeln(fx);
    writeln;
   end;
   close(fx);
  end;

 //Процедура вывода
 procedure vivod(var fx:textfile);
 var st:string;
 begin
  reset(fx);
  while not eof(fx) do
   begin
    readln(fx,st);
    writeln(st);
   end;
  writeln;
  close(fx);
 end;

  //Основная программа
Begin
assignfile(fi,'InputText.txt');
assignfile(fo,'OutputText.txt');
writeln(rus('Введите кол-во рейсов'));
readln(n);
writeln;
vvod(n,fi);
vivod(fi);
readln;
end.

[Sibedir]

1. Если вопрос конкретно по вводу-выводу в-из текстового файла, то в чем конкретно вопрос?
Вот же в вашем коде и запись и чтение из файла имеются. А там какраз файл текстовый.

2. Если вопрос не в вводе-выводе - уточни формулировку.
Программку нужно всего лишь доделать. Но в чем конкретно помошь нужна - не понятно.

[gabach]

Сообщение от Sibedir

1. Если вопрос конкретно по вводу-выводу в-из текстового файла, то в чем конкретно вопрос?
Вот же в вашем коде и запись и чтение из файла имеются. А там какраз файл текстовый.

2. Если вопрос не в вводе-выводе - уточни формулировку.
Программку нужно всего лишь доделать. Но в чем конкретно помошь нужна - не понятно.

Не могу понять, как будет выглядеть алгоритм сортировки этого файла. А вопрос мой действительно не корректный.

[Sibedir]

Соптировать нужно в памяти. А уже после сортировки можно записать в файл.