Var
  a:array [1..5, 1..6] of integer;
  this_row_maximum,k,i,j:integer;

  output_array:array [1..6] of integer;
  next_output_index: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]:4, ' ');
    end;
    writeln;
   end;

  next_output_index := 1;

  for j := 1 to 6 do
  begin
    this_row_maximum := abs(a[i, j]);

    for i := 1 to 5 do
    begin
      if abs(a[i, j]) > this_row_maximum then
        this_row_maximum := abs(a[i, j]);
    end;

    output_array[next_output_index] := this_row_maximum;
    next_output_index := next_output_index + 1;
  end;

  writeln;
  writeln;
  writeln;
  for i := 1 to 6 do
  begin
    write(output_array[i]:4, ' ');
  end;

end.