Найти сумму наибольшего и наименьшего чисел; количество чисел в файле

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show
end;
 
procedure TForm1.Button2Click(Sender: TObject);
 
var g, f:Textfile;
s:integer;
b, a, m:extended;
 
begin
  try
    if OpenDialog1.Execute then assignfile(f,OpenDialog1.filename);
    Reset(f);
  except
    ShowMessage('Ошибка при открытии файла');
    exit;
  end;
  try
   if SaveDialog1.Execute then assignfile(g,SaveDialog1.filename);
    Rewrite(g);
  except
    ShowMessage('Проблемы с выходным файлом');
  exit;
  end;
memo1.lines.LoadFromFile(opendialog1.FileName);
 
s:=0;
  try
  while not eof(f) do
      begin
       read (f,a);
           b:=a;
        m:=a;
       if b<a then b:=a;
       if m>a then m:=a;
       s:=s+1;
       write (g,'Кол-во элементов: ', s,' Сумма элементов: ',m+b);
       end;
   finally
    CloseFile(f);
    CloseFile(g);
 memo2.Lines.LoadFromFile(saveDialog1.FileName);
end;
end;
 
end.

s:=0;
if not eof(f) then read (f,a)
 else 
 begin
 showmessage('пустой файл')
 close;
 end;
b:=a;
m:=a;
while ....