Aplicacion en Delphi

[Quimico]

Que tal foristas.

Escribo en el foro debido a que he estado leyendo y me ha sido de mucha ayuda.

actualmente tengo una asignacion que consiste en el siguiente problema:

Se tienen una cantidad determinadas de temperaturas en ºKelvin (K), y debo realizar una aplicacion en delphi que sume las temperaturas en grado ºF, que cuente las temperaturas en K cuya mitad sea mayor de 50, promedio de las temperaturas en ºCelsius mayores a 25, suma de los cuadrados de las temperaturas en ºF mayores de 300, suma de las dos primeras temperaturas en escala ºK.

Tengo hasta ahora lo siguiente:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
VAR K, I, X, TM50, STM25, CTM25, SPT: INTEGER;
STF, F, C, PROM: REAL;
begin
K:= STRTOINT (INPUTBOX ('CANTIDAD DE VALORES A PROCESAR', 'CANTIDAD DE TEMPERATURAS', ''));
TM50:=0; STM25:=0; CTM25:=0; SPT:=0;
FOR I:=1 TO K DO
begin
X:=STRTOINT (INPUTBOX ('LISTA DE TEMPERATURAS', 'TEMPERATURA Nº ' + INTTOSTR (I),''));
F:=((9/5)*K)-459.67;
IF (I=1) THEN STF:=F+X;
IF (X/2>50) THEN TM50:=TM50+1;
C:=K-273;
IF(C>25) THEN
begin
STM25:=STM25+X; CTM25:=CTM25+1;
end;
IF (F>300) THEN STF:=STF+X;
IF (I>K+2) THEN SPT:=SPT+X;
end;
SHOWMESSAGE ('SUMA DE TEMPERATURAS EN ºF = ' + FLOATTOSTR (F));
SHOWMESSAGE ('CANTIDAD DE TEMPERATURAS LEIDAS CUYA MITAD ES MAYOR DE 50 = ' + INTTOSTR (TM50));
SHOWMESSAGE ('PROMEDIO DE TEMPERATURAS EN ºC MAYORES A 25 = ' + FLOATTOSTR (STM25/CTM25));
SHOWMESSAGE ('SUMA DE LAS DOS PRIMERAS TEMPERATURAS EN K = ' + INTTOSTR (SPT));
SHOWMESSAGE ('SUMA DE LOS CUADRADOS DE ºF MAYORES DE 300 = ' + FLOATTOSTR (SQR(STF)));
end;
end.

la aplicacion corre pero no esta bien, no realiza las acciones, alguien me puede ayudar?