Программа вычисления произведения матриц

program proizvedmatrix;
 const n=2;
type tA= Array[1..n,1..n] of Integer;
procedure vvodta(m:ta);
  var i,j :integer;
begin
    for i:=1 to n do
    for j:=1 to n do   begin
      write('M[',i,',',j,']=');
      readln(m[i,j]);
     end;
 
 end;
 
var a, b, c: ta; i,j,k: integer;
    begin
    vvodta(a);  vvodta(b);
    c[i,j]:=0;
    for i:=1 to n do
    for j:=1 to n do
 
    for k:=1 to n do begin
      c[i,j]:=c[i,j]+a[i,k]*b[k,j];
      end;
    for i:= 1 to n do
 begin
 for j:=1 to n do
 write(c[i,j],' ');
 writeln;
 end;
 
    readln;
    end.

procedure vvodta(var m:ta);

function vvodta(var m:ta):boolean;
  var i,j :integer;
begin
    for i:=1 to n do
    for j:=1 to n do   begin
      write('M[',i,',',j,']=');
      readln(m[i,j]);
     end;
 
 end;

function vvodta(const c: Char): tA;
var
    i,j: Integer;
    Result: tA; //если будет ругаться на повторное объявление переменной - удалить эту строку
begin
    for i := 1 to n do
        for j := 1 to n do
        begin
            Write(c, '[', i, ',', j, ']=');
            ReadLn(Result[i, j]);
        end;
    vvodta := Result;
end;

a := vvodta('a');