[Pilot_Red]

в проседуре dod что то не то там помоему должно быть так

Код:

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[j]:=k;
end;

end;