program LabVar28;
var
arr: array [1..5, 1..8] of integer;
i,j,max,temp: integer;
begin
    for i:=1 to 5 do
    for j:=1 to 8 do
    read(arr[i,j]); // getting user input

    writeln('Input array is');
    for i:=1 to 5 do
        begin
        for j:=1 to 8 do
            write(arr[i,j]:3, ' ');
        writeln();
        end;

    for i:=1 to 5 do
    begin
        max := arr[i,1];
        for j:=1 to 8 do
            if arr[i,j]<0 then
                if abs(arr[i,j]) > max then
                begin
                    max := arr[i,j];
                    temp := arr[i,1];
                    arr[i,1] :=arr[i,j];
                    arr[i,j] := temp;
                end;
    end;

    writeln('Result array is');
    for i:=1 to 5 do
        begin
        for j:=1 to 8 do
          write(arr[i,j]:3, ' ');
        writeln();
        end;
end.