Ассаламу алайкум...По братсвычисление значений многочлена по схеме горнера на делфи 7...

[Ramazan321]

программа есть готовая тока не могу представить его в форме ...макет формы тож есть тока все равно выводит большое количество непонятных ошибок..если кто может помочь пишите на почту INKOGNITO.ROMA99975@yandex.ru или в аську 615997322...от души сав всем заранее...)))вот программа тож если че готовая

 program Project3;
{$APPTYPE CONSOLE}
uses
  SysUtils;

type mas=array[0..255] of real;
var i,n:byte;
    x:real;
    a:mas;
function Gorner(a:mas;x:real;n:byte):real;
var s:real;
    i:byte;
begin
s:=a[n];
for i:=1 to n do
  s:=s*x+a[n-i];
Gorner:=s;
end;

begin
write('vvedite n=');readln(n);
write('vvedite x=');readln(x);
writeln('vvedite ',n+1,' coeff. mnogochlena ',n);
for i:=0 to n do
readln(a[i]);
write('S=',Gorner(a,x,n):11:5);
readln;
end.