Вычислить значение многочлена

uses crt;
var a:array[4..7] of real;
    x,s,y:real;
    i,j:byte;
begin
clrscr;
writeln('Введите коэффициенты многочлена:');
for i:=7 downto 4 do
 begin
  write('при x^',i,'=');
  readln(a[i]);
 end;
write('Введите значение аргумента x=');
readln(x);
clrscr;
y:=0;
for i:=4 to 7 do
 begin
  s:=1;
  for j:=1 to i do
  s:=s*x;
  y:=y+s*a[i];
 end;
writeln('Решение:');
write(a[7]:0:1,'x^7');
for i:=6 downto 4 do
 begin
  if a[i]>0then write('+');
  write(a[i]:0:1,'x^',i);
 end;
write('=',y:0:1);
readln
end.

uses crt;
var a:array[4..7] of real;
function Summa(x:real):real;
var i,j:byte;
    y,s:real;
begin
y:=0;
for i:=4 to 7 do
 begin
  s:=1;
  for j:=1 to i do
  s:=s*x;
  y:=y+s*a[i];
 end;
Summa:=y;
end;
var i,n:byte;
    xn,xk,x,y,h:real;
begin
clrscr;
writeln('Введите коэффициенты многочлена:');
for i:=7 downto 4 do
 begin
  write('при x^',i,'=');
  readln(a[i]);
 end;
clrscr;
writeln('Многочлен:');
write(a[7]:0:1,'x^7');
for i:=6 downto 4 do
 begin
  if a[i]>0then write('+');
  write(a[i]:0:1,'x^',i);
 end;
writeln;
xn:=-2;
xk:=2;
n:=10;
h:=(xk-xn)/(n-1);
writeln('Табулирование в цикле For:');
for i:=1 to n do
 begin
  x:=xn+(i-1)*h;
  writeln('x=',x:4:1,'  S=',Summa(x):8:2);
 end;
write('Нажмите Enter для продолжения..,');
readln;
writeln('Табулирование в цикле While:');
x:=xn;
while x<=xk+h/2 do
 begin
  writeln('x=',x:4:1,'  S=',Summa(x):8:2);
  x:=x+h;
 end;
write('Нажмите Enter для продолжения..,');
readln;
writeln('Табулирование в цикле Repeat:');
x:=xn;
repeat
  writeln('x=',x:4:1,'  S=',Summa(x):8:2);
  x:=x+h;
until x>xk;
write('Нажмите Enter для выхода..,');
readln
end.