Дано двузначное и трехзначное числа . найти произведение десятков этих чисел

Const n=5; m=6;
var 
a:array[1..n,1..m] of integer;
i,j,k,max:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
   a[i,j]:=random(100);
   write(a[i,j]:4);
  end;
  writeln;
 end;
max:=0;
for i:=1 to n do
 begin
 k:=0;
 for j:=1 to m do
  if a[i,j] mod 5=0 then k:=k+1;
 writeln(i,': ',k);
 if k>max then max:=k;
 end;
writeln('max = ',max);
end.

Пример:
Исходный массив:
  23   5  72   8  28  14
  25  78  62  10  61  35
  61  30  19  58  98  29
  94  36  58  51  90  10
  34  82  47  92  41  45
1: 1
2: 3
3: 1
4: 2
5: 1
max = 3

Const 
    n = 3;
    k = 3;
var
  i,j,s1,s2:integer;
  a:array[1..n,1..k] of integer;
begin
  s1:=0;
  s2:=0;
for i:=1 to n do
    for j:=1 to k do
    begin
     Writeln('Введите a[',i,',',j,']:');
     readln(a[i,j]);
     if (a[i,j]>0) and (i<>j) then s1:=s1+a[i,j];
     if (a[i,j]<0) and (i<>j) then s2:=s2+a[i,j];
    end;
  if s1>s2 then
   for j:=1 to k do
    begin
      a[1,j]:=s1;
      a[n,j]:=s1;
    end;
  if s2>=s1 then
    for i:=1 to n do
    begin
     a[i,1]:=s2;
     a[i,k]:=s2;
    end;
 writeln('Полученный массив:');
  for i:=1 to n do
   begin
     for j:=1 to k do
   write('a[':4,i,',',j,']=',a[i,j]);
   writeln;
   end;
end.