Программирование на 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.