матрицы,процедуры,подпрограммы

uses crt;
var a,b:array[1..100,1..100] of integer;
    i,j,n,m,sum1,sum2,k,l,p,h,g,r:integer;
    sr1,sr2:real;
 begin
  ClrScr;
  Randomize;
  Writeln('Введите размерность матрицы A');
   repeat
    Write('n=');
    Readln(n);
    Write('m=');
    Readln(m);
   until (n<=10) and (m<=15);
  Writeln('Введите размерность матрицы B');
   repeat
    Write('k=');
    Readln(k);
    Write('l=');
    Readln(l);
   until (k<=20) and (l<=15);
  Writeln('Матрица A...');
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      a[i,j]:=random(20)-10;
      Write(a[i,j]:4);
     end;
    Writeln;
   end;
  Writeln('------------');
  Writeln('Матрица B...');
   for i:=1 to k do
    begin
     for j:=1 to l do
      begin
       b[i,j]:=random(20)-6;
       Write(b[i,j]:4);
      end;
     Writeln;
    end;
  sum1:=0;
  for i:=1 to 1 do
   for j:=1 to m do
    if a[1,j]>0 then
     begin
      p:=p+1;
      sum1:=sum1+a[i,j];
      sr1:=sum1/p;
     end;
   h:=1;
   for i:=n to n do
    for j:=1 to m do
      h:=h*a[n,j];
    sum2:=0;
    for i:=1 to 1 do
     for j:=1 to l do
      if b[i,j]>0 then
       begin
        g:=g+1;
        sum2:=sum2+b[i,j];
        sr2:=sum2/g;
       end;
     r:=1;
     for i:=k to k do
      for j:=1 to l do
       r:=r*b[i,j];
   Writeln('Среднее А ',sr1:0:2,' Произведение  ',h);
   Writeln('Среднее В ',sr2:0:2,' Произведение  ',r);
  Readln;
 end.