Матрица, нахождение индекса мах элемента через процедуру

*********
uses crt;
const n=3; m=3;
type  mas=array[1..m,1..n]of integer;
var i,j,max,imax,jmax:integer; a:mas;
 
 
procedure vvodobrabotka(i,j:integer;a:mas);
begin
writeln('Вводи элементы массива');
for i:=1 to m do
for j:=1 to n do
read (a[i,j]);
for i:=1 to m do
begin
for j:=1 to n do
begin
write(' ',a[i,j],' ');
end;
writeln;
end;
max:=a[1,1];
for i:=1 to m do
begin
for j:=1 to n do
if a[i,j]>max then  max:=a[i,j];
writeln;
end;
writeln('Максимальный элемент матрицы: ',max);
end;
 
procedure indeks (i,j,max,imax,jmax:integer;a:mas);     //индекс максимального элемента
begin
max:=a[1,1];
for i:=1 to m do
begin
for j:=1 to n do if a[i,j]>max then  begin max:=a[i,j]; imax:=i;jmax:=j;  end;
end;
writeln(imax,jmax);
end;
 
 
 
 
BEGIN
vvodobrabotka(i,j,a);
indeks(i,j,max,imax,jmax,a);
END.
*********

uses crt;
const n=10; m=10;
type  mas = array[1..m,1..n]of integer;
var b, c : mas;
 
procedure vvod(var a : mas; size1, size2 : integer);
var i, j : integer;
begin
  writeln('Вводи элементы массива');
  for i:=1 to size1 do
    for j:=1 to size2 do
      read (a[i,j])
end;
 
procedure vyvod(a : mas; size1, size2 : integer);
var i, j : integer;
begin
  writeln('матрица:');
  for i := 1 to size1 do
  begin
    for j := 1 to size2 do
      write(a[i,j]:6);
    writeln
  end  
end;
 
procedure obrabotka(a : mas; size1, size2 : integer{; var res : integer});
var i, j, max : integer;
begin
  max := -32768;
  for i := 1 to size1 do
    for j := 1 to size2 do
      if a[i,j] >= max then max := a[i,j];
  writeln('Максимальный элемент матрицы: ',max);
  {res := max} {на случай если надо передать такой параметр в программу} 
end;  
 
BEGIN
  {ввод В(3,4)}
  vvod(b, 3, 4);  
  {ввод C(4,4)}
  vvod(c, 4, 4);
  {вывод В(3,4)}
  vyvod(b, 3, 4);
  {вывод C(4,4)}
  vyvod(c, 4, 4);
  obrabotka(b, 3, 4);
  obrabotka(c, 4, 4);
{...............}
END.

uses crt;
const n=10; m=10;
type  mas = array[1..m,1..n]of integer;
var b, c : mas;  k:integer;
 
 
procedure vvod(var a : mas; k1, k2 : integer);
var i, j : integer;
begin
  writeln('Ââîäè ýëåìåíòû ìàññèâà');
  for i:=1 to k1 do
    for j:=1 to k2 do
      read (a[i,j]);
end;
 
procedure vyvod(a : mas; k1, k2 : integer);
var i, j : integer;
begin
  writeln('ìàòðèöà:');
  for i := 1 to k1 do
  begin
    for j := 1 to k2 do
      write(a[i,j]:6);
    writeln
  end
end;
 
procedure obrabotka(k, k1, k2 : integer; var a:mas);
var i, j, S,max: integer;
begin
max := a[1,1];
for i := 1 to k1 do
for j := 1 to k2 do
if a[i,j] >= max then max := a[i,j];
writeln('Maximum ',max);
S:=0;
for i:=1 to k1 do
if a[i,k]<0 then S:=S+a[i,k];
max:=S;
 
end;
 
BEGIN
 
  vvod(b, 3, 4);
  vvod(c, 4, 4);
  writeln(' B ');
  vyvod(b, 3, 4);
  obrabotka(k,b, 3, 4);
  writeln(' C ');
  vyvod(c, 4, 4);
  obrabotka(k,c, 4, 4);
 
 
 
 
END.