двумерный массив

[mimit]

Дан двумерный массив целых чисел.
1)Для каждой строки выяснить имеются ли в ней разные элементы.
2)Определить есть ли в нем столбец, состоящий только из отрицательных элементов.

  const n=5;m=5;
var a:array [1..n,1..m] of integer;i,j:integer;

begin
  randomize;
  for i:=1 to n do
  for j:=1 to m do
  a[i,j]:=random(10);
  for i:=1 to n do
  begin
  for j:=1 to m do
  write(a[i,j]:3);
  writeln;
  end;
  readln;
end.

массив я вывел а вот как дальше делать?