Матрицы с помощью процедур и функций

[You-Lol]

Добрый вечер, помогите преобразовать код матрицы так, чтобы работал через процедуру или функцию:

var
  i, j, n, m, t: byte;
  S: integer;
  B: real;
  A: array[1..20, 1..20] of integer;
  
begin
  writeln('Введите N : ');
  readln(N);
  writeln('Введите матрицу ', n, 'x', n, ':');
  for i := 1 to n do
    for j := 1 to n do
      read(a[i, j]);
  writeln;
  S := 0; t := 0;
  for i := 1 to n do
    for j := 1 to n do
      if a[i, j] > 0 then begin;
        S := S + a[i, j];
        t := t + 1
      end;
  B := S / t;
  writeln('Среднее арифметическое: ', B:0:3)
end.

[challengerr]

В процедуру

procedure f;
var
i, j, n, m, t: byte;
S: integer;
B: real;
A: array[1..20, 1..20] of integer;

begin
writeln('Введите N : ');
readln(N);
writeln('Введите матрицу ', n, 'x', n, ':');
for i := 1 to n do
for j := 1 to n do
read(a[i, j]);
writeln;
S := 0; t := 0;
for i := 1 to n do
for j := 1 to n do
if a[i, j] > 0 then begin;
S := S + a[i, j];
t := t + 1
end;
B := S / t;
writeln('Среднее арифметическое: ', B:0:3)
end;

begin
f()
end.

[You-Lol]

Это уже готвое?

[challengerr]

Сообщение от You-Lol

Это уже готвое?

Да. В FPC это компилируется и запускается.

[You-Lol]

Большое Спасибо!

[You-Lol]

Извините, неправильно сказал условие задания: нужно - ввод, вывод, расчет через процедуры илм функции.
Прошу помочь, нужно строчно.

[Stilet]

Эх студент студент... Нет на тебя СССР.

A: array[1..20, 1..20] of integer;

procedure q;
begin
writeln('Введите N : ');
readln(N);
writeln('Введите матрицу ', n, 'x', n, ':');
for i := 1 to n do
for j := 1 to n do
read(a[i, j]);
writeln;
end;

procedure w;
begin
writeln('Среднее арифметическое: ', S / t:0:3)
end;

procedure f;
var
i, j, n, m, t: byte;
S: integer;
B: real;

begin
S := 0; t := 0;
for i := 1 to n do
for j := 1 to n do
if a[i, j] > 0 then begin;
S := S + a[i, j];
t := t + 1
end;
end;

begin
q(); f(); w();
end.