Pascal, подпрограммы. Сердобольным сюда(:

[Xenophilius]

Такая вот проблемка, мозгую задачку уже не один час, ничего дельног о не придумал, вроде всё просто и понятно, НО немогу, 8 раз переделылывал, пытаюсь по примеру, опять же не идет. Кто может помогите дельным советом или кусочком программы.
Задача:
1. вычисление количества отрицательных элементов матрицы.
2. сложения 2х матриц.
Матрица 5х5.

[meravingin]

type
Matrica=array[1..5,1..5] of real;
begin
var
function KolichOtrElementov(VxodnaiMatrica:M atrica):integer;
var
k,i,j:integer;
begin
k:=0;
for i:=1 to 5 do
for j:=1 to 5 do
if VxodnaiMatrica[i,j]<0
then
k:=k+1;

KolichOtrElementov:=k;
writeln('Количество отрицательных элементов=', KolichOtrElementov);
end

funkction SummaMatric(VxodnaiMatrica0,Vxodnai Matrica1:Matrica)::Matrica;
var
i,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
SummaMatric[i,j]:=VxodnaiMatrica0[i,j]+VxodnaiMatrica1;

writeln('Масив элементы которого это суммы нескольких масивов');
for i:=1 to 5 do
begin
writeln
for j:=1 to 5 do
write(SummaMatric[i,j],' ')
end;
end;

Вроде что то типо этого должно быть

[Xenophilius]

Спасиба, сдал уже) но все равно, благодарствую.