Задача на паскале

[Никита35]

Здравствуйте всем! Сейчас пишу программу,решающую нелинейные уравнения комбинированным мтодом хорд и касательных,ну это не суть. В настоящее время моя программа на этапе ввода алгебраического уравнения с клавиатуры. Застрял на процедуре его введения((( забыл совсем паскаль. Почему то программа бесконечно много раз просит вводить коэффициенты. Посмотрите,кто соображает:

program metod;
uses CRT;
var
  b,c: real;
  d,n:integer;

{Процедура ввода алгебраического ур-я с клавиатуры}
procedure algebr (a:array of real);
var i:integer;
begin
  write('vvedite vysshuyu stepen:> n=');
  readln(n);
  writeln('vvedite koefficienty:>');
  for i:=1 to n do
    begin
      read(b);
      a[i]:=b;
    end;
  writeln;
  writeln('vashe uravnenie imeet vid:');
  c:=n;
  for i:=1 to n-1 do
    begin
      write('(',a[i],a[i]:2:0,')','X^',c);
      c:=c-1;
    end;
  writeln('(',a[n]:2:0,')=0');
end;
begin
  clrscr;
  writeln('choose type of work:');
  writeln('put "1": algebr');
  writeln('put "2": tranc');
  write('vash vybor');
  readln(d);
  if d=1 then
    algebr (n);
end.

[Вавел из ГМТУ]

Сначала прога спросит чему равно n а потом прогонит n-раз цикл for.
Такчто бесконечностью тут не пахнет....

[Никита35]

Это алгоритм после того,как я намудил...до этого там по другому было...
Ты не знаешь,как сделать,чтоб всё ок было?

[Вавел из ГМТУ]

Я даж смутно понимаю, что там написано и, что требуется от кода

[ОДИНОЧЕСТВО В СЕТИ]

нелинейные уравнения комбинированным методом хорд и касательных