Программирование на Pascal / Delphi / Лабораторная работа

program Laba_5__4variant;
uses crt;
type Tm=array[1..10,1..10] of real;
var t,m,n,k,l,f:integer;
a,b:tm;
sa,sb:tm;
procedure vvod1 (str,stl:integer;var matr:tm);
var i,j:integer;
begin
for i:=1 to str do
for j:=1 to stl do begin
MATR[i,j]:=sin(i+j/2);
end;
end;

procedure vivod (str,stl:integer;matr:tm);
var i,j:integer;
begin
for i:=1 to str do
begin
for j:=1 to stl do
write(matr[i,j]:1:0,' ');
writeln
end;
end;

procedure summa (str,stl:integer;matr:tm);
var i,j:integer;
sum:real;
begin
sum:=0;
for j:=1 to stl do sum:=sum+matr[1,j];
for i:=1 to str do sum:=sum+matr[i,stl];
end;
var aaa,sum,bbb:real;
begin
clrscr;
writeln('vvedite razmernost" matric a i b');
readln(n,m,k,l);
begin
vvod1(n,m,a);
vvod1(k,l,b);
end;
vivod(n,m,a);
writeln;
vivod(k,l,b);
writeln;
summa(n,m,a);
aaa:=sum;
writeln;
summa(k,l,b);
bbb:=sum;
writeln('srednee znachenie',(aaa+bbb)/2);
readln
end.