разработать блок-схему алгоритма и составить программу

program z1;
uses crt;
const n = 4;
type ta = array [1..n, 1..n] of integer;
var
 s1, s2: integer; x: real;
 a, b: ta;
procedure matrixez (var a: ta; var b: ta);
 var i, j: integer;
begin
 for i:=1 to n do
   begin
     for j:=1 to n do
       begin
         a[i, j]:=random(10)+1;
         b[i, j]:=random(10)+1;
       end;
   end;
 writeln ('Исходная матрица А:');
 for i:=1 to n do
   begin
     for j:=1 to n do
       begin
         write (a[i, j]:4);
       end;
     writeln;
   end;
 writeln;
 writeln ('Исходная матрица В:');
 for i:=1 to n do
   begin
     for j:=1 to n do
       begin
         write (b[i, j]:4);
       end;
     writeln;
   end;
end;
procedure diags (var a: ta; var b: ta; var s1: integer; var s2: integer);
 var sum1, sum2, i, j: integer;
begin
 sum1:=0; sum2:=0;
 for i:=1 to n do
   begin
     for j:=1 to n do
       begin
         if (i=j) then
           begin
             sum1:=sum1+a[i, j];
             sum2:=sum2+b[i, j];
           end;
       end;
   end;
   writeln ('SP (A) = ', sum1);
   writeln ('SP (B) = ', sum2);
   s1:=sum1; s2:=sum2;
end;
procedure tables (var a: ta; var b: ta; var s1: integer; var s2: integer);
 var y, x: real;
 i, j, k: integer;
begin
{y=c*sqr(x)+d;
x=(0..1);
x=x+0.1;
c=sp(A); d= sp (B);
c=s1, d=s2;}
y:=0; x:=0.1;
for i:=1 to 10 do
begin
writeln ('y [',i,'] = sp (A)*x2+sp(B) = ',s1,'+',sqr(i/10):2:2,'+',s2,' = ', (y+s1*sqr(i/10)+s2):2:2, ' (x = ', i/10:2:2, ')');
{writeln ('S1 = ', s1, 'S2 = ', s2)}
end;
end;
begin
 clrscr;
 randomize;
 matrixez (a, b);
 diags (a, b, s1, s2);
 tables (a, b, s1, s2);
 readln;
end.