В массиве из 50 элементом найти все числа, равные 5 и вывести их номер — Pascal(Паскаль)

program Project1;

{$APPTYPE CONSOLE}

VAR
  mas: array [1 .. 50] of Integer;
  i: Byte;
  Flag: Boolean;

BEGIN
  Writeln('Programma 4');
  Randomize;
  Writeln('Nomera elementov ravnix 5:');
  FOR i := 1 To 50 Do
  BEGIN
    mas[i] := Random(10);
    IF mas[i] = 5 Then
    BEGIN
      Flag := True;
      Write(i, ' ');
    END;
  END;
  IF Flag = False Then
    Writeln('Net takix elementov');
  Readln;

END.