Чтение из внешнего файла массива и сортировка его

procedure TForm1.Button2Click(Sender: TObject);
var f:TextFile; {описание используемых переменных}
    ch,n,p,m,j,t,i,k :integer;
    a:array of integer;
    s: string;
  begin
 If OpenDialog1.Execute        //открыть диалог для поиска файла
         then begin
   AssignFile(f,OpenDialog1.FileName); {установка связи}
    Reset(f); {направление передачи данных- чтение}
    i:=0;
     While Not Eof(F) do        //пока не конец файла
Begin
inc(i);
    Read(F, ch);    //считать строку
    a[i]:=ch;
        End;
    for i := 0 to n - 1 do begin
    m:= a[i];
    p:= i;
    for j := i + 1 to n do
      if a[j] < m then begin
        m:= a[j];
        p:= j;
      end;
    t:=a[i];
    a[i] := a[p];
    a[p] :=t;
  end;
end;
for i:=1 to n do
Label5.caption:=label5.caption+' '+IntTostr(a[i]);
     CloseFile(f); {закрытие файла}
   end;

//Запись чисел из таблицы в файл.
procedure TForm1.Button2Click(Sender: TObject);
var
  F : TextFile;
  i, j: Integer;
  Num : Extended;
  StrNum : String;
begin
  if SaveDialog1.InitialDir = '' then
    SaveDialog1.InitialDir := OpenDialog1.InitialDir
  ;
  if SaveDialog1.InitialDir = '' then
    SaveDialog1.InitialDir := ExtractFilePath( Application.ExeName )
  ;
 
  if not SaveDialog1.Execute then Exit;
 
  AssignFile(F, SaveDialog1.FileName);
  Rewrite(F);
 
  for i := StringGrid1.FixedRows to StringGrid1.RowCount - 1 do begin
    for j := StringGrid1.FixedCols to StringGrid1.ColCount - 1 do begin
      try
        Num := StrToFloat(StringGrid1.Cells[j, i]);
      except
        on e : Exception do begin
          ShowMessage(
            'Обнаружено содержимое ячейки отличное от записи числа.' + #10
            + 'Действие прервано. Проверьте данные в таблице.'
          );
          CloseFile(F);
          Exit;
        end;
      end;
      //Writeln(F, Num:8:3);
      StrNum := FloatToStr(Num);
      Writeln(F, StrNum);
    end;
  end;
 
  CloseFile(F);
end;