Схема Горнера, не работает

program Horner;
uses system,crt;
  var 
   i:integer;
   q:char;
   text:PABCSystem.text;
   time:DateTime;
   user:string;  
 
function pow1(a:real; x:integer):real;
 var
 t:real;
 i:integer;
 begin
 if x=0 then Pow1:=1
 else
  begin
   t:=a;
   for i:=1 to x-1 do
   t:=t*a;
   pow1:=t;
  end;
 end;
procedure Superhorner;
type vector= array[1..11] of integer;
     rvector=array[1..100] of real;
 
var sum,suma:real;
    i,k,j,b,c,a,n:integer;
    vec:vector;
    vecb:rvector;
    veca:rvector;
BEGIN
    ClrScr;
    assign(text, 'D:\Horner-log.txt');
    writeln('Программа находит корни полиномов ',#10#13,'Например: 5x^4+5x^3+x^2-11');
    Writeln('Введите степень полинома (max = 10)');
    Readln(n);
    if n<=0 then begin
    writeln('Степень не может быть<=0');
    writeln(text,'Степень не может быть<=0')
    end
    else 
    begin
        Inc(n);
        writeln('Введите его коэффициенты:');
        for i := 1 to n do begin
            read(vec[i]);
            write(text,vec[i],' ');end;
            while vec[i]=0 do
                Begin
                    i:=i-1;
                    writeln('Ответ:0');
                    writeln(text,'Ответ:0');
                End;
        k:=1;
        b:=vec[i];
        for j:=1 to abs(b) do
        begin
        if (b mod j)=0 then
            begin
                vecb[k]:=j;
                k:=k+1;
                vecb[k]:=-j;
                k:=k+1;
            end;
        end;
        a:=1;
        for j:=1 to abs(vec[1]) do
            begin
                   if (vec[1] mod j)=0 then
                    begin
                        veca[a]:=j;
                        a:=a+1;
                    End;
            end;
        b:=a;
        for j:=1 to k-1 do
            Begin
                for a:=1 to b-1 do
                    Begin
                        c:=i;
                        sum:=0;
                        for i:=1 to c do
                            Begin
                                sum:=sum+vec[i]*pow1(vecb[j]/veca[a],c-i);
                                if (sum<0.00001) and (sum>-0.00001) then
                                if vec[a]=1 then begin
                                writeln('Ответ:',round(vecb[j]));
                                writeln(text,'Ответ:',round(vecb[j]))
                                end
                                else begin
                                writeln('Ответ:',round(vecb[j]), '/',round(veca[a]));
                                writeln(text,'Ответ:',round(vecb[j]), '/',round(veca[a]));
                                end;
                            End;
                    End;
            End;  
    End;
end;{Superhorner}
begin
 textcolor(5);
Writeln(' ||              ||                   ||                    ||         ||');
Writeln(' ||||          ||||                 || ||                   ||       ||||');
Writeln(' ||  ||      ||  ||                ||    ||                 ||      || ||');
Writeln(' ||    ||  ||    ||              ||        ||               ||     ||  ||');
Writeln(' ||      ||      ||             ||           ||             ||    ||   ||');
Writeln(' ||              ||           ||||||||||||||||||            ||   ||    ||');
Writeln(' ||              ||          ||                ||           ||  ||     ||');
Writeln(' ||              ||        ||                   ||          || ||      ||');
Writeln(' ||              ||       ||                     ||         ||||       ||');
Writeln(' ||              ||      ||                       ||        ||         ||');
textcolor(3);
Writeln;
Writeln;
Writeln;Writeln;
 
 
         Writeln('                   МАИ- Московский Авиационный Институт');
        Writeln('                 (Национальный исследовательский университет ) ');
        Writeln('       факультет №3"Системы управления, информатика и электроэнергетика" ');
        Writeln;
         Writeln;
          Writeln;
           Writeln;
            Writeln;
             Writeln;
             textcolor(10);
        Writeln('             Курсовая работа по дисциплине: "Дискретная математика ');
        Writeln('                          Программа "Горнер"');
         Writeln;
         Writeln;
         Writeln;
         Writeln;
         Writeln;
                 textcolor(2);
        Writeln('                                           Выполнил: студент группы 30-114Б');
        Writeln('                                           Кириллов Артур Эдуардович');
        Writeln('                                           Принял: доцент 308 кафедры ');
        Writeln('                                           Гридин Александр Николаевич ');
Writeln(' '); 
        Writeln(' ');
        textcolor(12);
Writeln('Внимание!Программа  работает  только  с  натуральными  числами, прочие символы не принимает завершает свою работу! ');
writeln('Нажмите Enter для начала работы.');
readln();
ClrScr;
  assign(text, 'D:\Horner-log.txt');
  append(text);
  writeln(text,'МОСКОВСКИЙ АВИАЦИОННЫЙ ИНСТИТУТ');
writeln(text,'НАЦИОНАЛЬНЫЙ ИССЛЕДОВАТЕЛЬСКИЙ УНИВЕРСИТЕТ');
writeln(text,'ФАКУЛЬТЕТ №3 СИСТЕМЫ УПРАВЛЕНИЯ, ИНФОРМАТИКИ И ЭЛЕКТРОЭНЕРГЕТИКИ');
writeln(text,'Курсовая работа по курсу "Дискретная математика"');
writeln(text,'Программа "Схема Горнера"');
writeln(text,'Выполнил студент группы 3О-114Б Кириллов А. Э.');
writeln(text,'Преподаватель: доцент каф. 308, Гридин А. Н.');
writeln(text,'Москва 2014 г.');
writeln('Введите фамилию и инициалы. Пример: Иванов И.И.');
readln(user);
writeln(text,'Имя пользователя или индекс запуска ПО: ',user);
time:=DateTime.Now;
writeln(text,'Программа запущена');
writeln(text,'Дата: ',time.year,'.',time.month,'.',time.day);
writeln(text,'Время:',time.hour,':',time.minute,':',time.second);
clrscr;
repeat
Superhorner;
writeln('Повторить выполнение программы?(Y/N)');
q:=ReadKey;
until q in ['N','n'];
time:=DateTime.Now;
writeln(text,'Программа завершена');
writeln(text,'Дата: ',time.year,'.',time.month,'.',time.day);
writeln(text,'Время:',time.hour,':',time.minute,':',time.second);
readln;
close(text);
end.