Помогите с задачкой в паскале

[Shamikadze]

Кроме матрицы А дана матрица В такого же размера. если для всех i,j выполняется неравенство a(i,j)+b(i,j)>0, заменить значение каждого элемента матрицы А, который меньше соответствующего элемента матрицы В, значением этого элемента матрицы В.

Заранее спасибо за помощь)

[Stilet]

Подаю в качестве идеи:

var b:Boolean;
...
Ввод матрицы:
...
b:=true;
for i:=Low(a) to High(a) do for j:=Low(a[i]) to High(a[i]) do
if (not b) or (a[i,j]+b[i,j])<=0 then begin b:=false; break; end;

if b then
 for i:=Low(a) to High(a) do for j:=Low(a[i]) to High(a[i]) do
  if a[i,j]<b[i,j] then a[i,j]:=b[i,j];
...
Вывод матрицы