Посмотрите ,не могу понять,в чем завоздка,что не там...

[Сева741]

задание на фотке ((



program pr_2_3;
uses crt,Linear_algebra;
const WG=100;
type tmatr=array[1..WG,1..WG] of real;
var n1,m1,n2,m2,n,m:byte;
a,b,c:tmatr;
begin
pr_wod_matr(n1,m1,a);
pr_wod_matr(n2,m2,b);
ClrScr;
writeln('Matriza 1':15);
pr_out_matr(n1,m1,a);
writeln('matriza 2':15);
pr_out_matr(n2,m2,b);
pr_sum_matr(n1,m1,n2,m2,a,b,n,m,c);
writeln('Matriza poluchennaya slojeniem matriz 1 u 2');
pr_out_matr(n,m,c);
end.







unit LLinear_algebra;
interface

Const WG=100;
type tmatr=array[1..WG,1..WG] of real;

procedure pr_wod_matr(var n1,m1:byte; var mas:tmatr);

procedure pr_out_matr(n1,m1:byte; mas:tmatr);

procedure pr_sum_matr(n1,m1,n2,m2:byte; a,b:tmatr;var n,m:byte; var c:tmatr);

implementation

(*прцедура ввода элементов матрицы*)
procedure pr_wod_matr(var n1,m1:byte; var mas:tmatr);
var i,j:byte; kl:byte;
begin
writeln('Введи размерность матрицы n,m');
readln(n1,m1);
writeln('1-ввод случайным образом, 2-ввод с клавиатуры');
readln(kl);
if kl=1 then randomize;
for i:=1 to n1 do
for j:=1 to m1 do
case kl of
1:mas[i,j]:=random(256);
2:begin
writeln('Введи элемент',i,' строки ',j,' столбца матрицы');
readln(mas[i,j]);
end;
end;
end;

(*процедура вывода элементов матрицы*)
procedure pr_out_matr(n1,m1:byte; mas:tmatr);
var i,j:byte;
begin
for i:=1 to n1 do
begin
for j:=1 to m1 do
write(mas[i,j]:8:3);
writeln;
end;
end;

(*процедура суммирования матриц*)
procedure pr_sum_matr(n1,m1,n2,m2:byte; a,b:tmatr;var n,m:byte; var c:tmatr);
var i,j:byte;
begin
if n1>n2 then n:=n1
else n:=n2;
if m1>m2 then m:=m1
else m:=m2;
for i:=1 to n do
for j:=1 to m do
c[i,j]:=a[i,j]+b[i,j];
end;
end.