файл, содержащий номер рейса самолета и количество свободных мест.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses StrUtils;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
  var
    rasp:TextFile;
begin
  AssignFile(rasp,'mesta.txt');
  Rewrite(rasp);
  CloseFile(rasp);
end;
 
procedure TForm1.Button4Click(Sender: TObject);
  var
    rasp: textFile;
    i: integer;
begin
    AssignFile(rasp,'mesta.txt');
    {$I-}
    reset(rasp);
    {$I+}
    Rewrite(rasp);
    If IOResult<>0 then
      begin
        ShowMessage('Ошибка открытия файла. Нажмите на кнопку "Создать файл"');
        exit;
      end;
 
    For i:=1 to 50 do
      Writeln(rasp,'Рейс номер- ' + IntTostr(i) + ' Количество свободных мест- ' + IntToStr(random(100))) ;
 
    CloseFile(rasp);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
  var
    rasp: textFile;
begin
    AssignFile(rasp,'mesta.txt');
    {$I-}
    Append(rasp);
    {$I+}
    If IOResult<>0 then
      begin
        ShowMessage('Ошибка открытия файла. Нажмите на кнопку "Создать файл"');
        exit;
      end;
 
    Writeln(rasp, 'Рейс номер- ' + Edit1.text + ' Количество свободных мест- ' + Edit2.text) ;
    Flush(rasp);
    CloseFile(rasp);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
  var
    rasp: textFile;
    s,s1,s2: string;
    ch: Char;
    i: integer;
begin
    AssignFile(rasp,'mesta.txt');
    {$I-}
    reset(rasp);
    {$I+}
    Reset(rasp);
    If IOResult<>0 then
      begin
        ShowMessage('Ошибка открытия файла. Нажмите на кнопку "Создать файл"');
        exit;
      end;
 
    While not Eof(rasp) do
      begin
        Readln(rasp,s);
        i:=13;
        s1:='';
          While s[i]<>' ' do
            begin
              s1:=s1+s[i];
              Inc(i);
            end;
 
        If s1=Edit3.Text then
          begin
            i:=0;
            s2:='';
            While s[Length(s)-i]<>' ' do
              begin
                s2:=s2+s[Length(s)-i];
                inc(i);
              end;
 
            ShowMessage(ReverseString(s2));
            exit;
          end;
 
      end;
 
    ShowMessage('Данного маршрута не существует проверте правильность задания маршрута');
end;
 
end.