В массиве из 12 частей, данных по формуле F[i]=i^2-5i-14Найдите сумму положительных

Program morebrains;

const

 n = 12; Количество элементов массива

var  

 F:array[1..n] of integer;

 s:string;

 i,sum:integer;

begin

 s:='**** -=Alphaeus=- ****';

 for i:=1 to 22 do begin write(s[i]); sleep(42) end;

наполняем массив

 writeln;  

 for i:=1 to n do F[i]:=i*i-5*i-14;

Отыскиваем сумму положительных

 sum:=0;

 for i:=1 to n do

   if F[i]gt;0 then sum:=sum+F[i];

Выводим сумму

 writeln;

 writeln('Сумма положительных элементов одинакова ',sum);

end.