Pomocy! Mam do napisania taki oto program: Dana jest tablica {Ai,j}, gdzie i = l..M; j= l..N. Proszę utworzyć taką tablicę {Xi}, że xi = 1, gdy w i-tym wierszu tablicy A znajduje się choć jeden element ujemny,
a xi = 0, jeśli w wierszu i-tym nie było elementów ujemnych.

Gdyby ktos mógł mi pomóc byłbym wielce zobowiązany.Na razie napisalem tyle:
program zad3;
const
k=10;
l=10;
var
m,n,i,j: integer;
a: array[1..k,1..l] of integer;
x: array[1..k] of integer;

begin
writeln('Podaj wymiar tablicy');
writeln('Podaj liczbe wierszy - m');
readln(m);
writeln('Podaj liczbe kolumn - n');
readln(n);
if (m<=k) and (n<=l) then
begin
for i:=1 to m do
for j:=1 to n do
begin
write('a[',i,j,']=');
readln(a[i,j]);
end;
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;

end
else
writeln('Podales zly wymiar');
readln;
end.