почему программа в паскаль работает неправильно

program yy;
uses crt;
const n=2; m=3;
var a:array[1..n,1..m] of integer;
b:array[1..n*m] of integer;
i,j:integer;
begin
clrscr;
writeln('pochatkova matriza:');
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(50)-24;
write(' ',a[i,j]:3);
end;
writeln;
end;
for i:=1 to n do
begin
b:=0;
for j:=1 to m do if a[i,j]<0 then b:=a[i,j];
end;
writeln('odnomirnui masuv:');
for i:=1 to n*m do write(' ',b:3);
readln;
end.