Дан массив x = (5.1, -0.0002, 1251.35, -1.5, 11.2, -1921.63). Вывести номера положительных элементов — Pascal(Паскаль)

Uses
 Crt;
Const
 N = {максимальный индекс элементов массива};
Type
 TIndex = 1..N;
 TArray = Array [TIndex] Of Real;
Var
 I:Integer;
 Arr:TArray;
 
Begin
ClrScr;
 
Arr[1] := 5.1;
Arr[2] := -0.0002;
{и т.д. - заполнение массива}
 
For I = 1 To N Do
Begin
 If Arr[I] > 0 Then Write(I:3)
End;
End.