program findmin;

var
    arr: array [0..3, 0..3] of integer = (
        ( 4, 3, 2, 1 ),
        ( 3, 2, 1, 4 ),
        ( 2, 2, 3, 3 ),
        ( 4, 2, 1, 3 )
    );
    i, j: integer; // enumerators
    min: integer; // the minimum value
begin
    // assume first element is minimal
    min := arr[0, 0];
    // for every row
    for i := 0 to length(arr) - 1 do begin
        // for every column
        for j := 0 to length(arr[i]) - 1 do begin
            // find mimimal element and it's position
            if arr[i, j] < min then begin
                min := arr[i, j];
            end;
        end;
    end;

    write('min is ');
    writeln(min);

    writeln('It was found in: ');
    for i := 0 to length(arr) - 1 do begin
        for j := 0 to length(arr[i]) - 1 do begin
            if arr[i, j] = min then begin
                write('row: ');
                write(i);
                write(' col: ');
                writeln(j);
            end;
        end;
    end;
end.