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

[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. И последний вопрос: вечная проблема с процедурами :-( каждое действие необходимо оформить процедурой:
Процедура ввода размерности матрицы.
Процедура ввода элементов матрицы.
Процедура вывода элементов исходной матрицы.
Процедура вычисления.
Процедура вывода результатов.
...а я по жизни путаюсь с формальными/фактическими параметрами :-(

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