Процедура сложения матриц (найти ошибку)

 
procedure    vvod(m,n,i,j:byte;var s:array [-100..100,-100..100]of real );
begin
 
   writeln ('êîë-âî ðÿäêîâ : =>');readln(n);
   writeln ('êîë-âî ñòîëá÷îâ  : =>') ;  readln(m);
     for i:=1 to n do begin
    Writeln('ââåäèòå ',i,' ðÿäîê : =>');
     for j:=1 to m do
    Readln(s[i,j]); end;
      writeln('èñõîäíàÿ ìàòððèöà: =>');
  for i:=1 to n do
   begin
  writeln;
  for j:=1 to m do
    write(s[i,j],' ' ); end;writeln;
end;
 
{-------------------------------------------}
var
x,m,n,i,j:byte;
 sm,a,b:array [-100..100,-100..100]of real ;
begin
 
               for i:=0 to 2 do               begin
 
               if i=2 then  vvod(m,n,i,j,b)
                       else vvod(m,n,i,j,a);
 
                                              end;
               for i:=1 to n do
               for j:=1 to m do
               sm[i,j]:=a[i,j]+b[i,j];
               for i:=1 to n do
               for j:=1 to m do
               write('sm[',i,',',j,']=',sm[i,j]);
 
end.

uses crt;
type matr=array [1..20,1..20]of real;
procedure vvod(var s:matr;var n,m:byte;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to n do
 begin
  Writeln('введите ',i,' рядок : ');
  for j:=1 to m do
  Read(s[i,j]);
  readln;
 end;
clrscr;
end;
{-------------------------------------------}
procedure Summ(a,b:matr;n,m:byte; var sm:matr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to m do
sm[i,j]:=a[i,j]+b[i,j];
end;
{-------------------------------------------}
procedure Vyvod(var sm:matr;n,m:byte;c:string);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to n do
 begin
  for j:=1 to m do
  write(sm[i,j]:5:1);
  writeln;
 end;
end;
{-------------------------------------------}
var sm,a,b:matr;
    x,m,n,i,j:byte;
begin
clrscr;
writeln ('кол-во рядков : =>');readln(n);
writeln ('кол-во столбчов  : =>') ;  readln(m);
Vvod(a,n,m,'A');
Vvod(b,n,m,'B');
Vyvod(a,n,m,'A');
Vyvod(b,n,m,'B');
Summ(a,b,n,m,sm);
Vyvod(sm,n,m,'S=A+B');
readln
end.