задача на паскаль с использованием подпрограмм

[Julichka1k]

Вычислить суммы элементов расположенных ниже главной диагонали для матриц: А(10,10), В(8,8), D(12,12). (рекомендуемый тип и метод решения ПРОЦЕДУРА)

!Помогите с кодом и блок схемой!

[Julichka1k]

program TwoSums;
uses Crt;
var A: array[1..10, 1..10] of Real;
S1, S2: Real; { S1, S2 - суммы элементов, расположенных ниже
и выше главной диагонали, соответственно}
N, i, j: Integer;
{--------------------------------------------}
procedure InputOutput;
begin {описание процедуры ввода-вывода исходных данных}
ClrScr;
Write('Количество строк и столбцов - '); ReadLn(N);
for i := 1 to N do {Ввод матрицы}
for j := 1 to N do
begin Write('A[', i, ', ', j, '] = ? ');
ReadLn(A[i, j])
end; WriteLn;
ClrScr; WriteLn(' Матрица А');
for i := 1 to N do {Вывод матрицы}
begin
for j := 1 to N do Write(A[i, j]: 5: 1);
WriteLn
end; WriteLn
end; { of InputOutput }
{--------------------------------------------}
procedure Under;
begin {описание процедуры суммирования элементов, }
S1 := 0; {расположенных ниже главной диагонали }
for i := 2 to N do
for j := 1 to i - 1 do
S1 := S1 + A[i, j];
WriteLn('О т в е т :');
WriteLn('Сумма элементов, лежащих ниже главной диагонали =', S1: 5: 1);
end;

исправте что не так?

[whatever]

type
  matrix=array[1..12, 1..12] of Real;
{--------------------------------------------}
procedure InputOutput(n:integer; var A:matrix);
  var
    i,j:integer;
  begin {описание процедуры ввода-вывода исходных данных}
//    ReadLn(N);
    for i := 1 to N do {Ввод матрицы}
      for j := 1 to N do
        begin
          Write('A[', i, ', ', j, '] = ? ');    //(1)когда надоест писать вручную
      //    A[i,j]:=random(10);                  //(2)убираешь комментарий в строчке (2), то есть здесь
          ReadLn(A[i, j])                       //(3)и коментируешь строчки (3) и (1)
        end; WriteLn;
    WriteLn(' Матрица А');
    for i := 1 to N do {Вывод матрицы}
      begin
        for j := 1 to N do Write(A[i, j]: 5: 1);
        WriteLn
      end;
    WriteLn
  end; { of InputOutput }

{--------------------------------------------}
procedure Under(A:matrix; N:integer; var S1:real);
  var
    i,j:integer;
  begin {описание процедуры суммирования элементов, }
    S1 := 0; {расположенных ниже главной диагонали }
    for i := 2 to N do
      for j := 1 to i - 1 do
        S1 := S1 + A[i, j];
    WriteLn('О т в е т :');
    WriteLn('Сумма элементов, лежащих ниже главной диагонали =', S1: 5: 1);
    writeln;
  end;

{--------------------------------------------}
var
  A,B,D:matrix;
  S1,S2,S3: Real; //Сумма элементов ВЫШЕ главной диагонали по заданию не нужна, по этому S2 и S3 для матриц B & D
  //N: Integer;

BEGIN
  //Вычислить суммы элементов расположенных ниже главной диагонали для матриц: А(10,10), В(8,8), D(12,12).
{  Write('Количество строк и столбцов матрицы A - ');
  readln(N);                }//Не вижу смысла спрашивать, в задании все есть.
  InputOutput(10,A);
  Under(A,10,S1);
  InputOutput(8,B);
  Under(B,8,S2);
  InputOutput(12,D);
  Under(D,12,S3);
  readln
END.

Еще мысли вслух: Если сумму элементов, расположенных ниже главной диагонали нужно только вывести на экран, то S1,S2,S3 не имеют смысла, стоит убрать S1 из объявления процедуры и записать его в var этой процедуры.
Если же предполагается дальнейшая работа с этим числом, то лучше оставить как есть.