Заменить все отрицательные элементы первого массива на абсолютные значения второго

for i:=0 to n-1 do
  if a[i]<=0 then
    a[i]:=Abs(b[i]);

const N=15;
 
var a, b:array[1..N]of integer; {int}
    i:integer;
    
begin
 randomize;
 for i:=1 to 20 do writeln; {clrscr}
 write(#13,'A ='); for i:=1 to N do begin a[i]:=random(101)-50;write(a[i]:5)end;
 write(#13,'B ='); for i:=1 to N do begin b[i]:=random(101)-50;write(b[i]:5)end;
 
 writeln; for i:=1 to 5+N*5 do write('-'); writeln; {line}
 
 write('A''=');
 for i:=1 to N do begin
  if a[i]<1 then a[i]:=abs(b[i]); {<=}
  write(a[i]:5)
 end;
 writeln
end.

const N=15;
 
var a, b:array[1..N, 1..N]of integer; {int}
    i, j, k:integer;
 
begin
 randomize;
 for i:=1 to 20 do writeln; {clrscr}
 write(#13,'A ='); for i:=1 to N do begin
  for j:=1 to N do begin a[i,j]:=random(101)-50;write(a[i,j]:5)end; writeln end;
  
 write(#13,'B ='); for i:=1 to N do begin
  for j:=1 to N do begin b[i,j]:=random(101)-50;write(b[i,j]:5)end; writeln end;
 
 writeln; for i:=1 to 5+N*5 do write('-'); writeln; {line}
 
 k:=0;
 write('A''=');
 for i:=1 to N do begin
  for j:=1 to N do begin
   if b[i,j]=0 then inc(k); {000000}
   if a[i,j]<1 then a[i,j]:=abs(b[i,j]); {<=}
   write(a[i,j]:5)
  end;
  writeln
 end;
 writeln; for i:=1 to 5+N*5 do write('-'); writeln; {line}
 
 writeln('B(0)= ',k);
end.

const M=6; N=15; W=4;
var
  i, j, k:integer;
  a, b: array [0..M-1, 0..N-1] of Integer;
begin
  Randomize;
  for i:=0 to M-1 do for j:=0 to N-1 do a[i,j]:=Random(101)-50;
  for i:=0 to M-1 do for j:=0 to N-1 do b[i,j]:=Random(101)-50;
 
  WriteLn('A =');
  for i:=0 to M-1 do begin for j:=0 to N-1 do Write(' ',a[i,j]:W); WriteLn; end;
  WriteLn('B =');
  for i:=0 to M-1 do begin for j:=0 to N-1 do Write(' ',b[i,j]:W); WriteLn; end;
 
  {k:=0;}
  for i:=0 to M-1 do for j:=0 to N-1 do if b[i,j]=0 then Inc(k);
  for i:=0 to M-1 do for j:=0 to N-1 do if a[i,j]<1 then a[i,j]:=Abs(b[i,j]);
 
  WriteLn('A''=');
  for i:=0 to M-1 do begin for j:=0 to N-1 do Write(' ',a[i,j]:W); WriteLn; end;
  WriteLn('Нулей в B: ',k);
end.