найдите ошибку

[lexa_7up]

помогите найти ошибку

[lexa_7up]

program ex1;
const n=10;
m=15;
type omyarray=array[1..n] of integer;
dmyarray=array[1..n,1..m] of integer;
var a: omyarray;
b: dmyarray;
procedure init (var x: dmyarray);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
x[i,j]:=random(50);
end;
procedure print (var x: dmyarray);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
write (x[i,j]:5);
WRITELN;
end;
end;
procedure sum (var x: dmyarray; var y: omyarray);
var i,j:integer;
begin
for i:=1 to n do
begin
y[i]:=0;
for j:=1 to m do
if x[i,j]<0 then
y[i]:= y[i] + x[i,j];
end;
end;
begin
randomize;
init(b);
print(b);
sum(b,a);
print(a);
end.

[Serge_Bliznykov]

я нашёл.
К Вашему несчастью...

1) тема не отражает суть задачи/проблемы

2) код не оформлен тегами

3) нет описания решаемой задачи - возникающей ошибки.

Модератор

p.s. Тему закрываю.