Исправить модуль

[Д@ш@]

Исправить модуль так, чтобы сначала выводил исходный двумерный массив, а затем примерно так:
4 4 5 6 5 4,8 2
6 4 6 4 5 5 2
5 3 4 3 6 4,2 3
2 6 3 3 4 3,6 3
5 6 4 4 4 4,6 3

где 6 столбец-сред.арифметическое, а 7 столбец-большие сред.арифметического

Модуль_1
unit op;
interface
const MaxN=25;
type TMyArray=Array[1..maxN, 1..maxN] of integer;
implementation
end.

Модуль_2
uses op,module,crt;
var A : TMyArray;
n, m : Integer;

begin
Clrscr;
Zapolnenie(n, m, A);
Vivod(n, m, A);
Sr_ar (n, m, A);
readln
end.

Модуль_3
unit module;
interface
uses op;

procedure Zapolnenie(var v, w: integer; var X :TMyArray);
procedure Vivod (v, w: integer; var X:TMyArray);
procedure Sr_ar(v, w: integer; X :TMyArray);

implementation

procedure Zapolnenie(var v,w:integer; var X :TMyArray);
var i, j:integer;
begin
repeat
write('Количество строк до ',MaxN,' n=');
readln(v);
until v in [1..MaxN];
repeat
write('Количество столбцов до ',MaxN,' m=');
readln(w);
until w in [1..MaxN];
For i:=1 to v do
For j:=1 to w do
X[i,j]:=random(5)+2;
end;

procedure Vivod(v,w:integer; var X:TMyArray);
var i,j:integer;
begin
For i:=1 to v do
begin
For j:=1 to w do
write(X[i,j]:3);
Writeln;
end;
writeln;
end;
procedure Sr_ar(v, w: integer; X :TMyArray);
var
i,j,r:integer;
ar:real;
begin
for i:=1 to v do
begin
ar:=0;
r:=0;
for j:=1 to w do
ar:=X[i,j]+ar;
ar:=ar/w;
writeln('Среднее арифметическое ',i,' строки= ', ar:0:2);
for j:=1 to w do
if x[i,j]<ar then r:=r+1;
writeln('Количество элементов больше среднего=',r);
end;
end;
end.