Помогите решить здачу. на Паскале. Дан двумерны массив. определить : есть ли в данном массиве отрицательный элемент.

var m:array[1..20] of array[1..20] of Integer;i,j,r:Integer;
begin
randomize;r:=0;
for i:=1 to 20 do for j:=1 to 20 do begin m[ i][j]:=Random(1000)-500;if m[ i][j]<0 then r:=1; end;
if r=0 then writeln('No') else writeln('Yes');
end.