Сохранение массива в файл, проверка целого числа и тд

1 2 3
1 2 3
1 2 3
 
Определитель матрицы: 0

1 2 3 1 2 3 1 2 3
 
Определитель матрицы: 0

procedure TForm1.SaveStringGrid(StringGrid: TStringGrid;
          const FileName: TFileName); // ïðîöåäóðà ñîõð. ìàòðèöû è îïðåäåëèòåëÿ
 var
   f:    TextFile;
   i, k: Integer;
 begin
  if SaveDialog1.Execute then      // âûáîð äèðåêòîðèè ñîõð. ôàéëà
    AssignFile(f, savedialog1.FileName);
    Rewrite(f);
  with StringGrid do
  begin
   for k := 0 to RowCount - 1 do
     for i := 0 to ColCount - 1 do
       begin
       Write(F, Cells[i, k], ' ');
       end;
  end;
  Writeln(f);
  Writeln(f);
  Write(f, 'Îïðåäåëèòåëü ìàòðèöû: ' + Edit1.Text);
  CloseFile(F);
 end;

procedure TForm1.LoadStringGrid(StringGrid: TStringGrid;
                                const FileName: TFileName);
label                                     // ìåòêè äëÿ goto
  start,
  finish;
var
  f:          TextFile;
  i, j, coll, n, m, g, btsel:  Integer;
  strTemp, s:    String;
begin
  start:
 
  if OpenDialog1.Execute then                // âûáîð äèðåêòîðèè õðàíåíèÿ ôàéëà
  begin
    AssignFile(f, openDialog1.FileName);   // ÷òåíèå ôàéëà
    Reset(f);
  end
  else
  begin                             // åñëè ôàéë íå âûáðàí, äèàëîã ïðîäîëæàåòñÿ
    btsel:=MessageDlg('Ôàéë íå âûáðàí. '+
    'Ïîâòîðèòå ïîïûòêó',mtConfirmation, mbOKCancel,0);
 
    if (btsel=mrCancel) then        // îáðàáîòêà êíîïêè Cancel
      goto finish
    else
      goto start;
  end;
 
  with StringGrid do                // íà÷àëî çàïîëíåíèÿ ìàññèâà
  begin
    n:=0;
    g:=0;
    coll:=0;
 
    while not EOF (f) do           // ïîäñ÷åò ñòðîê
    begin
      readln(f,strTemp);
      n:=n+1;
    end;
 
    RowCount:= n;
    reset(f);
    readln(f,strTemp);
 
    while not EOLN (f) do             // ïîäñ÷åò ñòîëáöîâ
    begin
      read(f,m);
      g:=g+1;
    end;
 
    ColCount:=g;
    reset(f);
 
    if (n<>g) then                   // ïðîâåðêà íà òî, ÷òî ìàòðèöà êâàäðàòíàÿ
      begin;
        s:='Îøèáêà. Êîëè÷åñòâî ñòðîê è ñòîëáöîâ íå îäèíàêîâî, ëèáî '+
        'ñîäåðæèìîå ôàéëà íå èçâåñòíî.'+' Ïðîãðàììà áóäåò çàâåðøåíà.';
        ShowMessage(s);
        Form1.Close;
      end
    else
 
    for j := 0 to RowCount - 1 do            // çàïîëíåíèå ýëåìåíòîâ StringGrid
 
      for i := 0 to ColCount - 1 do
      begin
        Read(f, m);
        Cells[i, j] := FloatToStr(m);
        Coll:=Coll+1;                   // ïîäñ÷åò êîëè÷åñòâà ýëåìåíòîâ ìàññèâà
      end;
 
  end;
 
  CloseFile(f);
  Edit2.Text:=IntToStr(Coll);
  finish:
end;

with StringGrid do
  begin
   for k := 0 to RowCount - 1 do
    begin
      for i := 0 to ColCount - 1 do
      Write(F, Cells[i, k], ' ');
      Writeln(F);//новая строка в файле
     end;
  end;

    while not EOLN (f) do             // подсчет столбцов
    begin
      read(f,m);
      g:=g+1;
    end;

while not EOF (f) do           // подсчет строк
 begin
  readln(f,strTemp);
  k:=0;
  i:=1;
  while(i<=length(strTemp))and(k=0) do
  if not(strTemp[i] in ['0'..'9',#32,#7]) then k:=1
  else inc(i);
  if k=1 then сообщение и выход
  else n:=n+1;
 end;