Var a:array [1..5, 1..6] of integer;
max,k,i,j:integer;
b:array [1..6] of integer;
Begin
   For i:=1 to 5 do begin
  for j:=1 to 6 do begin
    a[i,j]:=random(20)-10;
    write(a[i,j],   '   ');
    end;
    writeln;
  end;

  for i:=1 to 5 do begin
    for j:=1 to 6 do begin
      max:=a[1,i];
      if abs(a[i,j])>max then b[j]:=a[i,j];
      k:=k+1;
    end;
  end;
 writeln;
  for i:=1 to k-1 do write(b[i]);
end.