Какое число встречается раньше - положительное или отрицательное?

program Project1;
 
const
  M = 20;
var
  Arr : array[1..M] of Integer;
  i, F : Integer;
  S : String;
begin
  repeat
    Writeln('Исходный массив:');
    //Заполняем массив.
    Randomize;
    for i := 1 to M do begin
      case Random(7) of
        0 : Arr[i] := 1;
        1 : Arr[i] := -1;
        else Arr[i] := 0;
      end;
      //Распечатка элементов массива.
      if i > 1 then Write(', ');
      Write(Arr[i]);
    end;
    Writeln;
 
    //Определяем какое число встречается раньше -
    //положительное или отрицательное.
    F := 0;
    for i := 1 to M do begin
      if Arr[i] > 0 then begin
        F := 1;
        Break;
      end else if Arr[i] < 0 then begin
        F := -1;
        Break;
      end;
    end;
 
    if F > 0 then
      Writeln('Раньше встречается положительное число.')
    else if F < 0 then
      Writeln('Раньше встречается отрицательное число число.')
    else
      Writeln('Массив содержит только нули.')
    ;
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.