Есть код ( Программа на тему ( сложить и умножить матрицы ) Нужно исправить некоторые части кода

procedure TForm1.N14Click(Sender: TObject);
 begin
   try // початок захищеного блока
   Memo2.Lines.Clear;
   Memo2.Lines.LoadFromFile('addl.txt');// файл даних для додамання матр.
   Memo2.Lines.Add('Перші дві цифри в рядку - розмірність матриці sxl');
   Memo2.Lines.Add('Далі задаємо рядками, відповідно, значення матриці А та В.');
   PageControl1.ActivePage:=PageControl1.pages[2];
   except
     on EInOutError do
     begin
      MessageDlg(txt1,mtError,[mbOK],0);
     end;
 end;
end;

procedure TForm1.N20Click(Sender: TObject);
var i,j:Integer;
    st:string;
begin
 with SaveDialog1 do
   begin
     InitialDir:=GetCurrentDir;
     Filter:='Data|*.dat|All files|*.*';
   end;
   if SaveDialog1.Execute then
   begin
     AssignFile(f,SaveDialog1.FileName);
     Rewrite(f);// відкриваємо файл на запис
     write(f,n:4);  write(f,k:4);// записуємо розмірність
     // записуємо першу матрицю у файл
     for i:=1 to n do
     begin
      for j:=1 to k-1 do
      begin
        write(f,StringGrid4.Cells[j-1,i-1],'  ');
      end;
     end;
     // другу мтрицю
      for i:=1 to n do
     begin
      for j:=1 to k-1 do
      begin
        write(f,StringGrid5.Cells[j-1,i-1],'  ');
      end;
     end;
CloseFile(f);
end;
end;

stringgrid.colcount:=1