Матрица, вычисления, вывод...нюансы Опции

[Jill]

Ребят, подскажите!
Условие: Задана квадратная матрица А размером N х N (N<==10), состоящая из действительных элементов.Найти среднее арифметическое элементов каждой из четных строк матри-цы.
Набросала код:

program LABA_11;
var
   N,i,j:integer;
   A:array[1..10,1..10] of real;
   Sum,Sr:real;
begin
{Ввод размерности}
write('Введите размерность массива N = ');
readln(N);
{Ввод значений элементов матрицы}
for i:=1 to N do
for j:=1 to N do
    begin write('A[',i,',',j,']',' = ');
    readln(A[i,j]);
    end;
{Вывод исходной матрицы}
for i:=1 to N do
for j:=1 to N do
    writeln(A[i,j]:2:2); readln;
{Вычисление, вывод среднего арифметического}
for i:=1 to N do
    Sum:=0;
    begin if (i mod 2)=0 then
          begin for j:=1 to N do
                Sum:=Sum+A[i,j];
                j:=j+1;
                Sr:=Sum/N;
          end;
    writeln('Среднее арифметическое ',i,'-ой строки ->',Sr:2:2);
    i:=i+1
    end;
    readln;
end.

Проблемы:
1. Каким макаром вывести среднее арифметическое каждой из строк? В моем коде получается только для последней, причем, если N - четное число... :-(
2. Как вывести исходную матрицу так, чтобы было более наглядно - квадратиком? ;-)
3. И последний вопрос: вечная проблема с процедурами :-( каждое действие необходимо оформить процедурой:
Процедура ввода размерности матрицы.
Процедура ввода элементов матрицы.
Процедура вывода элементов исходной матрицы.
Процедура вычисления.
Процедура вывода результатов.
...а я по жизни путаюсь с формальными/фактическими параметрами :-(

Помогите, пожалуйста!

[volvo]

Ну а вот она же, но с процедурами/функциями:

program LABA_11;

Type 
  mx = Array[1 .. 10, 1 .. 10] Of Real;
  vec = Array[1 .. 10] Of Real;

Function GetSize: Integer;
Var X: Integer;
Begin
  { Ввод размерности }
  write('Введите размерность массива N = '); readln(X);
  GetSize := X;
End;

Procedure InputMatrix(Var A: mx; N: Integer);
Var i, j: Integer;
Begin
  { Ввод значений элементов матрицы }
  for i:=1 to N do
    for j:=1 to N do begin
      write('A[',i,',',j,']',' = '); readln(A[i,j]);
    end;
End;

Procedure PrintMatrix(A: mx; N: Integer);
Var i, j: Integer;
Begin
  { Вывод матрицы }
  for i:=1 to N do begin
    for j:=1 to N do
      write(A[i,j]:2:2, ' ');
    writeln;
  end;
End;

Function CountAverage(A: mx; Var average: vec; N: Integer): Integer;
Var 
  size, i, j: Integer;
  Sum: Real;
Begin
  { Вычисление среднего арифметического }

  size := 0;
  for i:=1 to N do
    if (i mod 2) = 0 then begin
      Sum:=0;
      for j:=1 to N do Sum:=Sum+A[i,j];
      inc(size); average[size] := Sum / N;
  end;
  CountAverage := size;
End;

var
  N, i: integer;
  A: mx;
  B: vec;
begin
  n := GetSize;
  InputMatrix(A, N);
  PrintMatrix(A, N);

  {
    вывод среднего арифметического - 
    можно тоже сделать отдельной процедурой
  }
  For i := 1 To CountAverage(A, B, N) Do
    WriteLn('Среднее арифметическое ',i,'-ой строки ->',B[i]:2:2);
  readln;
end.