записи и файлы

type
  TForm1 = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox2: TComboBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 Type                       {Объявление типа запись}
 
     Tspravochnaya = record
   numreysa:integer;
     tipsamleta: string;
     timevileta: integer;
     punktnaznach: string;
end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,k: Integer;
  x,y:integer;
  x1,x2,x3,x31,x4:string;
  A: array of Tspravochnaya;
  N,b:integer;
begin
 Memo1.Clear;
 Memo2.Clear;
 N:=100;
 SetLength(A,N);
 
 for i := 0 to N-1 do
 begin
  Randomize;
  x1:=Edit1.Text +  IntToStr(i);
  j:=Random(ComboBox1.Items.Count);
  x2:=ComboBox1.Items.Strings[j];
  k:=Random(ComboBox2.Items.Count);
  x3:=ComboBox2.Items.Strings[k];
  x31:=inttostr(Random(10));            //IntToStr(StrToInt(ComboBox1.Text)+ (5-Random(10)));
  Memo1.Lines.Add(x1+' '+x2+'-'+x3+'->'+x31);
 
  With A[i] do
  Begin
     numreysa:=strtoint(x1);
     tipsamleta:= x2;
     timevileta:=strtoint(x3) ;
     punktnaznach:= x31;
  end;
 end;
 
 //Сортировка
 
 for x:=0 to N-1 do
  begin
    for y:=0 to N-x do
    begin
     if a[y].timevileta> a[y+1].timevileta  then
      begin
       b:=a[y].timevileta;
       a[y].timevileta:=a[y+1].timevileta;
       a[y+1].timevileta:=b;
      end;
    end;
  end;
 //---------------------------------
 
 for i := 0 to N-1 do
 begin
   x1:=inttostr(A[i].numreysa);
   x2:=A[i].tipsamleta;
   x3:=inttostr(A[i].timevileta);
   x31:=A[i].punktnaznach;
   x4:=x1+' '+x2+'-'+x3+'-'+x31;
   Memo2.Lines.Add(x4);
 end;
 
 //Memo1.Lines.SaveToFile('1.txt');
 //Memo2.Lines.SaveToFile('2.txt');
end;
 
end.