Подсчитать сумму положительних элементов

[aerosm]

Подсчитать сумму положительних элементов каждого радка матриц А[1..4,1..5] и В[1..4,1..5]. Язык Delphi.

Вот накатал. Но не работает, уже пол дня мучаюсь. Помогите, исправте.

var
  Form1: TForm1;

implementation

type mas=array [1..4,1..5] of integer;
mas1=array [1..4] of integer;
procedure dod(a:mas;var x1:mas1);
var i,j,k:integer;
begin
 
for j:=1 to 4 do
begin   k:=0;
 for i:=1 to 5 do
 if a[i,j]>0 then
 k:=k+a[i,j];
 x1[i]:=k;
end;
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
A,b: mas;
i,j:integer;l,k:mas1;
begin
for j:=1 to 4 do
begin
for i:=1 to 5 do
if (strtoint(stringgrid1.Cells[i-1,j-1])<>0)  then
a[i,j]:=strtoint(stringgrid1.Cells[i-1,0]);
if (strtoint(stringgrid2.Cells[i-1,0])<>0)   then
B[i,j]:=strtoint(stringgrid2.Cells[i-1,j-1]); end;
 dod(a,l);
 dod(b,k);
 label1.caption:=floattostr(l);
 label2.caption:=floattostr(k);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
begin
randomize;
for i:=1 to 5 do
begin
for j:=1 to 4 do
begin
stringgrid1.Cells[i-1,j-1]:=inttostr(random(100));
stringgrid2.Cells[i-1,j-1]:=inttostr(random(100));
end;
end;
end;

[veniside]

индексы местами попутали:

if a[j,i]>0 then
 k:=k+a[j,i];
 x1[j]:=k;

[aerosm]

здесь ошибка [Error] Unit1.pas(61): Incompatible types: 'String' and 'mas1'

label1.caption:=floattostr(l);
 label2.caption:=floattostr(k);

[Hacker19_90]

Сообщение от aerosm

здесь ошибка [Error] Unit1.pas(61): Incompatible types: 'String' and 'mas1'

label1.caption:=floattostr(l);
 label2.caption:=floattostr(k);

Логично!!! Судя по коду l и k это МАССИВЫ! А не числа!

l,k:mas1;

Откуда mas1 это

mas1=array [1..4] of integer;

И чего вы хотели?

[Vanta11a]

Ну так вы пытаетесь весь массив перегнать в строку. Сделайте цикл с перегонкой по элементу, как вариант.

for i:=1 to 4 do
label1.caption:=label1.caption+floattostr(l[i]);
 label2.caption:=label2.caption+floattostr(k[i]);