Даны две матрицы. Получить их разность

Program Prof;
Uses Crt;
 
 Const k=100;
 
 Type MaTR = array[1..k,1..k] of integer;
 
var Mat1:MaTR;
    Mat2:MaTR;
    i,j,l,h: integer;
    m,n,m1,n1: integer;
    s,s1: integer;
    Result: integer;
Begin
 Writeln('Введите кол-во строк');
  Read(n);
 Writeln('Введите кол-во столбцов');
  Read(m);
 
    For i:= 1 to n do
     For j:= 1 to m do
      Begin
        Mat1[i,j]:=Random(10);
         s:=s+Mat1[i,j];
      End;
 
 
      
 Writeln('Введите кол-во строк 2-ой матрицы');
  Read(n1);
 Writeln('Введите кол-во столбцов 2-ой матрицы');
  Read(m1);
  
    For l:= 1 to n1 do
     For h:= 1 to m1 do
      Begin
        Mat2[l,h]:=Random(10);
         s1:=s1+Mat2[l,h];
 
      End;
 
 
   Result:=s-s1;
     Writeln('Разность матриц равна = ',Result);
End.

program Prof;
const
  k = 100;
 
type
  MaTR = array[1..k, 1..k] of integer;
 
procedure Subtract(A, B: Matr; var C: Matr);
var
  i, j: integer;
begin
  for i := 1 to k do
    for j := 1 to k do
      C[i, j] := A[i, j] - B[i, j];
end;
 
procedure Print(A: Matr; n, m: integer);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(A[i, j]:4);
    writeln;
  end;
end;
 
var
  Mat1: MaTR;
  Mat2: MaTR;
  Res: Matr;
  i, j, l, h: integer;
  m, n, m1, n1: integer;
  s, s1: integer;
  Result: integer;
 
begin
  Writeln('Введите кол-во строк');
  Read(n);
  Writeln('Введите кол-во столбцов');
  Read(m);
  
  for i := 1 to n do
    for j := 1 to m do
    begin
      Mat1[i, j] := Random(10);
      Mat2[i, j] := Random(10);
    end;
  Writeln('Матрица A:');
  Print(Mat1, n, m);
  Writeln('Матрица B:');
  Print(Mat2, n, m);
  
  Subtract(Mat1, Mat2, Res);
  Writeln('Разность матриц:');
  Print(Res, n, m);
end.