Процедуры и функции.

uses crt;
type
   mas=array[1..10,1..10] of integer;
var
  f,n,m:byte;
   a,b,c:mas;
procedure vvod(var x:mas; var n,m:byte);
var
   i,j:byte;
 begin
writeln('Введите кол-во строк');
readln(n);
writeln('Введите кол-во столбцов');
readln(m);
   for i:=1 to n do
       for j:=1 to m do
         begin
          writeln('Введите элемент x[',i,'',j,'] элемент');
          read(x[i,j]);
          end;
 end;
procedure vivod(var x:mas; n,m:byte);
var
  i,j:byte;
begin
  for i:=1 to n do
    begin
     writeln('');
      for j:=1 to m do
        write(x[i,j]:5);
    end;
end;
function kol_o( var x:mas; var n,m:byte; var f:byte):byte;
var
   i,j:byte;
begin
f:=0;
   for i:=1 to n do
     begin
      for j:=1 to m do
        begin
        if x[i,j]<0 then
         f:=f+1;
        end;
      end;
 
f:=kol_o;
end;
function max_m( var x:mas; var n,m:byte):integer;
 var
   i,j:byte;
   max:integer;
 begin
 max:=x[1,1];
 for i:=2 to n do
    for j:=2 to m do
     if x[i,j]>max then
        max:=x[i,j];
        max_m:=max;
 
end;
begin
clrscr;
writeln('Введите матрицу 1');
vvod(a,n,m);
writeln('Введите матрицу 2');
vvod(b,n,m);
writeln('Введите матрицу 3');
vvod(c,n,m);