Сформировать массив, элементы которого определяются по формуле

const
  k=4;l=3;
type mas=array[1..k,1..l] of integer;  
var
  i,j:integer;
  a,b,c:mas;
function max(a,b:integer):integer;
begin
  if a>b then max:=a else max:=b;
end;
function min(a,b:integer):integer;
begin
  if a<b then min:=a else min:=b;
end;  
procedure print(a:mas;c:char);
var
  i,j:integer;
begin
  writeln('массив ',c,':');
  for i:=1 to k do begin
    for j:=1 to l do write(a[i,j]:6);
    writeln;
  end;  
end;
 
begin
  randomize;
  for i:=1 to k do 
   for j:=1 to l do begin
    a[i,j]:=random(10)-5;
    b[i,j]:=random(10)-5;
    if a[i,j]>=0 then c[i,j]:=max(a[i,j],b[i,j]) else c[i,j]:=min(a[i,j],b[i,j]);
   end;
 print(a,'A');
 print(b,'B');
 print(c,'C');
end.

const k =5; l=5;
var a,b,c: array [1..k,1..l] of integer;
i,j: word;
begin
 clrscr;
 for i:=1 to k do
 for j:=1 to l do
  a[i,j]:= random [100];
 for i:=1 to k do
 for j:=1 to l do
  b[i,j]:= random [100];
 
 for i:=1 to k do
 for j:=1 to l do
  if a[i,j]>=0 then 
   begin
    if a[i,j]>=b[i,j] then c[i,j]:= a[i,j] else c[i,j]:= b[i,j];
   end
   else
   begin
    if a[i,j]>=b[i,j] then c[i,j]:= b[i,j] else c[i,j]:= a[i,j];
   end;
 
 for i:=1 to k do
 for j:=1 to l do
  if k=k then writeln else writeln (c[i,j]);
 readln;
end.