[Pilot_Red]

Код:

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

вот так попробуй, там еще баг был.