Подпрограммы (procedure)

uses
  crt;
 
type
  tmat = array[1..20, 1..20] of integer;
 
procedure zapis(a: tmat; l: integer);
var
  i, j, k, m, x: integer;
  b, c: array[1..20] of integer;
begin
  k := 0;
  m := 0;
  for i := 1 to l do 
  begin
    for j := 1 to l do 
      if (i = j) and (a[i, j] > 0) then begin
        k := k + 1;
        b[k] := a[i, j];
      end;
  end;
  for i := 1 to l do 
  begin
    for j := 1 to l do 
      if (i + j - 1 = l) and (a[i, j] > 0) then begin
        m := m + 1;
        c[m] := a[i, j];
      end;
  end;
  writeln;
  for i := 1 to k - 1 do 
  begin
    for j := k - 1 downto 1 do
      if b[j] > b[j + 1] then begin
        x := b[j];
        b[j] := b[j + 1];
        b[j + 1] := x;
      end;
  end;
  for i := 1 to m - 1 do 
  begin
    for j := m - 1 downto 1 do
      if c[j] > c[j + 1] then begin
        x := c[j];
        c[j] := c[j + 1];
        c[j + 1] := x;
      end;
  end;
  writeln('первый массив');
  for i := 1 to k do 
  begin
    write(b[i], ' ');
  end;
  readln;
  writeln('второй массив');
  for i := 1 to m do 
  begin
    write(c[i], ' ');
  end;
end;
 
var
  i, j, l: integer;
  a: tmat;
 
begin
  randomize;
  writeln('введите l');
  readln(l);
  for i := 1 to l do 
  begin
    for j := 1 to l do
      a[i, j] := random(10) - 1;
  end;
  for i := 1 to l do 
  begin
    for j := 1 to l do
      write(a[i, j], ' ');
    writeln;
  end;
  zapis(a, l);
  readln;
end.

type
 mass=array[1..100,1..100] of integer;
 
procedure summik(n:mass;k:integer);
var
i,j:integer;
sum,kol:real;
 
begin
for i:=1 to k do begin
 for j:=1 to k do 
  if (j=1) and (i mod 2=0) and (n[i,j]>0) then begin
   sum:=sum+n[i,j];
   kol:=kol+1;
  end;
 end;
write('сумма-',' ',sum,' ','кол-во-',' ',kol);
end;
var
a,b,c:mass;
i,j,n1,n2,n3:integer;
 
begin
randomize;
repeat
writeln('введите размерность массива 1');
readln(n1);
until n1 in [2..10];
for i:=1 to n1 do begin
 for j:=1 to n1 do
  a[i,j]:=random(10)-3;
end;
writeln('первая матрица');
for i:=1 to n1 do begin
 for j:=1 to n1 do
  write(a[i,j],' ');
  writeln;
end;
summik(a,n1);
writeln;
repeat
writeln('введите размерность массива 2');
readln(n2);
until n1 in [2..15];
for i:=1 to n2 do begin
 for j:=1 to n2 do
  b[i,j]:=random(10)-3;
end;
writeln('вторая матрица');
for i:=1 to n2 do begin
 for j:=1 to n2 do
  write(b[i,j],' ');
  writeln;
end;
summik(b,n2);
writeln;
repeat
writeln('введите размерность массива 3');
readln(n3);
until n3 in [2..20];
for i:=1 to n3 do begin
 for j:=1 to n3 do
  c[i,j]:=random(10)-3;
end;
writeln('третья матрица');
for i:=1 to n3 do begin
 for j:=1 to n3 do
  write(c[i,j],' ');
  writeln;
end;
summik(c,n3);
end.type
  mass = array[1..100, 1..100] of integer;
 
procedure summik(n: mass; k: integer);
var
  i, j: integer;
  sum, kol: real;
 
begin
  for i := 1 to k do 
  begin
    for j := 1 to k do 
      if (j = 1) and (i mod 2 = 0) and (n[i, j] > 0) then begin
        sum := sum + n[i, j];
        kol := kol + 1;
      end;
  end;
  write('сумма-', ' ', sum, ' ', 'кол-во-', ' ', kol);
end;
 
var
  a, b, c: mass;
  i, j, n1, n2, n3: integer;
 
begin
  randomize;
  repeat
    writeln('введите размерность массива 1');
    readln(n1);
  until n1 in [2..10];
  for i := 1 to n1 do 
  begin
    for j := 1 to n1 do
      a[i, j] := random(10) - 3;
  end;
  writeln('первая матрица');
  for i := 1 to n1 do 
  begin
    for j := 1 to n1 do
      write(a[i, j], ' ');
    writeln;
  end;
  summik(a, n1);
  writeln;
  repeat
    writeln('введите размерность массива 2');
    readln(n2);
  until n1 in [2..15];
  for i := 1 to n2 do 
  begin
    for j := 1 to n2 do
      b[i, j] := random(10) - 3;
  end;
  writeln('вторая матрица');
  for i := 1 to n2 do 
  begin
    for j := 1 to n2 do
      write(b[i, j], ' ');
    writeln;
  end;
  summik(b, n2);
  writeln;
  repeat
    writeln('введите размерность массива 3');
    readln(n3);
  until n3 in [2..20];
  for i := 1 to n3 do 
  begin
    for j := 1 to n3 do
      c[i, j] := random(10) - 3;
  end;
  writeln('третья матрица');
  for i := 1 to n3 do 
  begin
    for j := 1 to n3 do
      write(c[i, j], ' ');
    writeln;
  end;
  summik(c, n3);
end.