Помогите решить задачку с использованием процедур

[NuboProgramist]

Даны две вещественные матрицы A(7,7) и B(5,5).Из матрицы 'А' сформировать одномерный массив 'С',а из матрицы 'B' массив 'D' по паравилам:
Из Количеств элементов больших К для строк матрицы А и больших N для матрицы B. Значения K,N ввести с клавиатуры.Для ввода матриц,формирования одномерных массивов и вывода одномерных массивов применить три PROCEDURE.
Я считаю что не плохо знаю Паскаль,но решить это свыше моих сил...=(

[Sheka]

Обращайся! 255507394

[dr.Jekill]

[syntax="pascal"]
const maxInd=7;

type High=record
rH,cH:integer;
end;
Data=array[1..maxInd,1..MaxInd] of real;
PData=^Data;

function DataIn(const MaxInd:High):PData;
var i,j:integer;
tmp ata;
begin
randomize;
for i:=1 to MaxInd.rH do
for j:=1 to MaxInd.cH do tmp[i,j]:=random(100);
DataIn:=@tmp;
end;

function Work(const InArr:PData; MaxInd:High; KN:integer):PData;
var i,j:integer;
kol:integer;
tmp ata;
begin
for i:=1 to MaxInd.rH do
begin
kol:=0;
for j:=1 to MaxInd.cH do if InArr^[i,j]>KN then inc(kol);
tmp[i,1]:=kol;
end;
Work:=@tmp;
end;

procedure DataOut(const Arr:PData; MaxInd:High);
var i,j:integer;
begin
for i:=1 to MaxInd.rH do
begin
for j:=1 to MaxInd.cH do write(Arr^[i,j]:4:1,' ');
writeln;
end;
end;
[/syntax]

[NuboProgramist]

Спасибо)
Извините,у меня нету звёздочки чтобы повысить репутацию вам...=/