Проблема с использованием подпрограмм в Pascal

[Dimani4]

Всем добрый вечер, осталась последняя задача из лабы. Никак не могу решить. Помогите пожалуйста.
Вот задача: Составить программу, содержащую подпрограмму для вычисления суммы положительных элементов первой строки матрицы С(10,20).
вот я попытался. для того чтобы удобней было проверять задал массив не 10*20 а 4*2. Препод заболел заместо нее, лекцию(а точнее жалкое ее подобие) провел некто, в течении получаса начал только излагать теорию и привел один пример, где к сожалению не было задания с массивами, после чего нас отпустили. Поэтому я долго рыскал по справочной литературе, в поисках как хотя бы задать массив внутри функции, в общем как смог написал:

program t;
var i,j,z:integer;s:real;
c:array[1..4,1..2] of real;
K:array[1..10] of real;
function Plus(k:array[1..10] of real):real;
begin
for i:=1 to 4 do
for j:=1 to 2 do
If c[i,j]>0 then k[z]:=c[i,j];end;
begin
For i:=1 to 4 do
for j:=1 to 2 do readln(c[i,j]);
s:=0; for z:=1 to 10 do s:=s+k[z];
writeln('s=',s:6:2);end.

[Hacker19_90]

В функции в качестве формального параметра нельзя указать массив с размерами поэтому делай так

..................
type
    Massiv = array[1..2, 1..4] of real; 
var 
    i,j,z:integer;
    s:real;
    c: Massiv;
function Plus(k:Massiv):real;
var
    sum: real;
    i: byte;
begin
    sum := 0.0;
    i := 1;
    for j:=1 to 4 do
         If k[i,j]>0 then sum := sum + k[i,j];
    Plus := sum;
end.

[Dimani4]

Hacker19_90 благодарю вас, но теперь вот такая проблема.
изначально я планировал что программа будет работать так: задается массив, она сканирует первую строчку, и все положительные значение отправляет во 2ой массив, потом все элементы 2ого массива складываются.
Вы мне предложили более простое и рациональное решение: задается один массив, сканируется его строка и сразу положительные значения добавляются("плюсуются") в какую-то переменную, поэтому убрав из программы 2ой массив и лишние переменные я получил следующе:

program t;
type
    Massiv = array[1..2, 1..4] of real;
var
    i,j:integer;                          {параметры двумерного массива}
    sum:real;                              {будущая сумма положительных значений}
    k: Massiv;                            {двумерный массив "K", где  2строки*4столбца}
function Plus1(k:Massiv):real;
var
    sum: real;
    i: byte;
begin
    sum := 0;           {зануление суммы}
    i := 1;              {i не меняется т.к нужна только 1ая строка}
    for j:=1 to 4 do     {перебираем по порядку элементый 1ой строки}
         If k[i,j]>0 then sum := sum + k[i,j];     {складываем эти элементы.}
end; 
begin
for i:=1 to 2 do
for j:=1 to 4 do readln(k[i,j]);  {вводим вручную элементы массива}
writeln('sum=',sum:4:2);          {выводим сумму, которая считалась в функции}
end.

вроде все логично, правильно, но в итоге пишется что сумма равна 0, подскажите в чем я о5 прокололся?

ps: пояснение написал специально чтобы вам было легче понять чего я тут пытаюсь "родить"

[GetMax]

Dimani4, у вас функция не возвращает результат выполнения в программу.

function Plus1:real;
var
    sum: real;
    i: byte;
begin
    sum := 0;           {зануление суммы}
    i := 1;              {i не меняется т.к нужна только 1ая строка}
    for j:=1 to 4 do     {перебираем по порядку элементый 1ой строки}
    If k[i,j]>0 then 
    Begin
       sum := sum + k[i,j];     {складываем эти элементы.}
    End;
   Plus1:=Sum {Присваиваем полученное значение функции}
end; 
Begin
  ....
  Writeln('Summa = ', Plus1:4:2)

[Dimani4]

GetMax
спасибо вам, выручили, все заработало