Переделать программу с использованием подпрограмм: генерирование, обработка и вывод массива

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Grids, Spin;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    SpinEdit1: TSpinEdit;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Label1Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..10,1..10] of real;
  n,i,j:integer;
  sum:real;
begin
  sum:=0;
  n:=SpinEdit1.value;
  stringgrid1.rowcount:=n;
  stringgrid1.colcount:=n;
  if (n<2) or (n>10) then showmessage('Error')
  else
  begin
  randomize;
  for i:=1 to n  do
    for j:=1 to n do
    begin
     a[i,j]:=random(100);
     stringgrid1.cells[j-1,i-1]:=floattostr(a[i,j]);
     if (i=n) then
      sum:=(sum+a[i,j]);
     if (j=n) then
      sum:=(sum+a[i,j]);
     sum:=sum-a[n,n]
    end;
  label1.caption:=floattostr(sum);
  end;
  end;
end.

var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
type mas=array[1..10,1..10] of real;
procedure massiv(var a:mas;n:byte);
var i,j:byte;
begin
  for i:=1 to n do
  for j:=1 to n do
  a[i,j]:=5*random;
end;
procedure print(st:TstringGrid;a:mas;n:byte);
var i,j:byte;
begin
  with st do
   begin
     fixedrows:=0;
     fixedcols:=0;
     rowcount:=n;
     colcount:=n;
     defaultcolwidth:=35;
   end;
 for i:=1 to n do
 for j:=1 to n do
 st.Cells[j-1,i-1]:=formatfloat('0.00',a[i,j]);
end;
procedure summa(lb:TLabel;a:mas;n:byte);
var i:byte;
    sum:real;
begin
sum:=0;
for i:=1 to n  do
sum:=sum+a[n,i]+a[i,n];
sum:=sum-a[n,n];
lb.Caption:='Сумма последних строки и столбца='+formatfloat('0.00',sum);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var a:mas;
    n:byte;
    k:integer;
begin
val(Edit1.Text,n,k);
if(k<>0)or not(n in [1..10]) then
 begin
   ShowMessage('Неверно введен размер массива');
   Edit1.Clear;
   Edit1.SetFocus;
   exit;
 end;
massiv(a,n);
print(StringGrid1,a,n);
summa(Label1,a,n);
end;