Найти номер первой из строк прямоугольной матрицы, не содержащих ни одного отрицательного элемента - Turbo Pascal

Формулировка задачи:

1)Найти номер первой из строк прямоугольной матрицы, не содержащих ни одного отрицательного элемента.(с использованием Procedure или Function) знаю, что легко, но не работает программа через Procedure

Решение задачи: «Найти номер первой из строк прямоугольной матрицы, не содержащих ни одного отрицательного элемента»

Листинг программы

Const
 ColCount = 3;
 
Type
 TRowArray = array[1..ColCount] of Integer;
 
function TestRow(Row: TRowArray): Boolean;
Var i: Integer;
begin
 TestRow := True;
 for i := 1 to ColCount do if Row[i] < 0 then Exit;
 TestRow := False;
end;
 
Var
 Arr: array[1..ColCount] of TRowArray;
 i,j: Integer;
begin
 Randomize;
 for i := 1 to ColCount
 do begin
    for j := 1 to ColCount
    do begin
       Arr[i,j] := -1+Random(11);
       Write(Arr[i,j]:3);
       end;
    WriteLn;
    end;
 for i := 1 to ColCount
 do if TestRow(Arr[i])
    then begin
         WriteLn(i);
         Break;
         end;
 ReadLn;
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он предназначен для создания программ на ПК. Константа ColCount определяет количество столбцов в матрице. Тип TRowArray представляет собой массив целых чисел. Функция TestRow проверяет, содержит ли строка матрицы отрицательные элементы. Переменные i и j используются для прохода по матрице. В цикле создается случайная матрица, заполненная числами от -1 до 10. Затем происходит проверка каждой строки матрицы на наличие отрицательных элементов. Если строка проходит проверку, то выводится ее номер. В конце программы выводится номер первой строки, удовлетворяющей условию.