Исправьте программу плиз! Турбопаскаль.

[maxiswell]

Программу написал, но не знаю как поставить итог и возможно в проге есть ошибки. Проверьте пожалуйста, буду оч. благодарен.
Program Chebyshev;
{Прога должна находить наименьшее натуральное значение аргумента
х(Argum), n-ный (Num) многочлен Чебышева от которого > A(Lowgran)}
var
Polpred,Poltek,Polsled:Real;
Num,numcheb:Byte;
lowgran,Argum:Word;
begin
Write('Введите номер многогчлена Чебышева и его нижнюю границу ');
Readln(Num,Lowgran);
Polpred:=1;
Numcheb:=2;
While Poltek>Lowgran do
begin
Inc(Argum);
Poltek:=Argum;
while Numcheb=Num do
begin
Inc(Numcheb);
Polsled:=2*Argum*Poltek-Polpred;
Polpred:=Poltek;
Poltek:=Polsled;
end
end;
Writeln('{Здесь не знаю как подвести итог, а возможно это все из-за
ошибки}');
Readln;
End.
Спасибо!

[paloit]

362827711
за оплату.

[maxiswell]

Скока береш?