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

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

    for i:=1 to 7 do
    begin
        min := A[i,1];
        for j:=1 to 8 do
            if A[i,j]<0 then
                if abs(A[i,j]) < min then
                begin
                    min := A[i,j];

                end;
    end;

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