Cоставить процедуры для данной программы

[SSarox]

Создать таблицу из 6 строк ТАВ, где в каждой строке будут располагаться найденные отрицательные(1) элементы из строк матрицы А, возведенные в квадрат(2).Вывести А и под ней ТАВ.

(1) Проц.(положительные)
(2) Проц.(куб)
(3) Проц.(вывести дополнительный массив из отрицательных(положительных) чисел состоящие в матрице А.)

Прошу мне помочь с готовым решением.

Вот программа
Код:

program qq;
uses crt;
var
a:array[1..6,1..6] of integer;
Tab:array[1..6,1..6] of integer;
i,j:integer;
begin
randomize;
for i:=1 to 6 do begin
for j:=1 to 6 do begin
a[i,j]:=5-random(10);
write(a[i,j]:6);
if a[i,j]<0 then tab[i,j]:=sqr(a[i,j]);
end;
writeln;
end;
writeln;
for i:=1 to 6 do begin
for j:=1 to 6 do begin
if tab[i,j]<>0 then write(tab[i,j]:6) else write('0':6)
end;
writeln;
end;
end.

[Serge_Bliznykov]

на форуме запрещён КРОССПОСТ!

ваша тема:
http://programmersforum.ru/showthread.php?t=256289