Помогите составить программу в PASCAL?

// Программа работает в Pascal ABC.Net

program ggg;

// uses Dos,Crt,Math {забрать // перед uses если программа запускается в среде TurboPascal}

var f : array [1..10] of real;

i,k : integer;

begin

k := 0;

writeln('Введите 10 элементов массива F');

writeln('------------------------------------------');

for i :=1 to 10 do

begin

write(' F[',i,'] = ');readln(f[i]);

if i>2 then

begin

if f[i-1] > f[i] then k := k + 1;

end;

end;

writeln(' ------------------------------------------- ');

writeln('Количество элементов массива F, которые имеют меньшее значение за предыдущие, равно = ', k);

end.