Сортировка в списках

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label6: TLabel;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Button3: TButton;
    Button4: TButton;
    BitBtn1: TBitBtn;
    Button5: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  Type stud=record
        fam,adr,bed:string[200];
         end;
var
  Form1: TForm1;
  f:file of stud;
  ft:textfile;
  w:stud;
  fname,fnamet:string;
  s:string;
  a:array [1..100]  of stud;
  n,i:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear; memo2.Clear; memo3.Clear;
edit1.Clear; edit2.Clear; edit3.Clear;
end;
 
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  OpenDialog1.Title:='Открыть файл';
  if OpenDialog1.Execute then
    begin
      fname:=OpenDialog1.Filename;
      AssignFile(f,fname);
      Reset(f);
    end;
  memo1.clear;  memo2.clear;  memo3.clear;
    While not  eof(f) do
    begin
    read(f,w);
    memo1.lines.add(w.fam);
    memo2.lines.add(w.adr);
    memo3.lines.add(w.bed);
    end;
  CloseFile(f);
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  SaveDialog1.Title:='Сохранить в текстовом файле';
  SaveDialog1.DefaultExt:='.txt';
  if SaveDialog1.Execute then
    begin
    fnamet:=SaveDialog1.FileName;
    AssignFile(ft,fnamet);
    Rewrite(ft);
    end;
  reset(f);
while not eof(f) do
    begin
    read(f,w);
    with w do
        writeln(ft,fam:10,adr:10,bed:10);
    end;
closeFile(f);
closeFile(ft);
end;
 
procedure TForm1.Button5Click(Sender: TObject);
  var r,n:integer;
 
  begin
 memo1.clear; memo2.clear; memo3.clear;
 reset(f);
 n:=0;
          while not eof(f) do            //создаем массив записей
            begin
             read(f,w);
               inc(n);
               a[n]:=w;
                        end;
 
 
                for i:=1 to n-1 do       //сортируем их по алфавиту
                     for r:=1 to n-i do
                       if a[r].bed>a[r+1].bed then
                          begin
                                w:=a[r]; a[r]:=a[r+1];
                                a[r+1]:=w;
                          end;
 
      memo1.Lines.Add(a[i].fam);
      memo2.Lines.Add(a[i].adr);
      memo3.Lines.Add(a[i].bed);
 
     end;
        end.