Первый положительный элемент массива

Найти номер и значение первого положительного элемента массива.

Данная задача решается просто, если использовать оператор break. Массив перебирается в цикле. Каждый элемент проверяется на условие "больше нуля". Как только оно будет выполнено, элемент следует вывести на экран, а цикл прервать.

const N = 20;
var 
    arr: array[1..N] of integer;
    i: byte;
begin
    randomize;
    for i:=1 to N do begin
        arr[i] := random(100) - 75;
        write(arr[i]:4);
    end;
    writeln;
    for i:=1 to N do
        if arr[i] > 0 then begin
            writeln(i, ' ', arr[i]);
            break;
        end;
end.

Без использования break имело бы смысл перебирать массив с конца. При этом в определенную переменную записывать значение массива, если оно положительно. Каждый очередной положительный элемент будет перезаписывать старое значение. Поскольку массив перебирается по направлению к началу, то последним записанным числом (или индексом) окажется первый положительный элемент массива.