Можете подправить программу??? Срочно надо

[Fylhtq]

Для заданного х вывести на экран K многочленов Чебышева, больших некоторого наперед заданного числа А. Вычислить их сумму

Program ch;
var
X,Pol_0,Pol_1,Pol_2,A,S:real;
K:byte;
begin
writeln ('‚Введите аргумент, количество многочленов и нижний предел их значения');
Readln (x,k,a);
writeln (K,' многочленов чебышева, больших ',a,':');
S:=0;
Pol_0:=1;
Pol_1:=x;
While k>0 do
begin
Pol_2:=2*x*Pol_0*Pol_1;
K:=k-1;
If Pol_2>a then
begin
Writeln (Pol_2:9:3);
S:=s+Pol_2;
end;
end;
writeln ('Их сумма равна ',s:9:3);
readln;
end.