Подскажите где ошибка

[Ximer]

uses crt;
var a,x,s,i:integer;
begin
writeln("a="); << Error 5: Syntax error.
readln(a);
s:=0;
for x:=3 to 19 do
s:=s+(sqr(x)+x)/(a*x);
writeln("s=",s:0:2);
readln;
end.

[alex_fcsm]

uses crt;
var a,x,i:integer;
    s:real;
begin
writeln('a=');
readln(a);
s:=0;
for x:=3 to 19 do
s:=s+(sqr(x)+x)/(a*x);
writeln('s=',s:0:2);
readln;
end.

или

uses crt;
var a,x,i,s:integer;
begin
writeln('a=');
readln(a);
s:=0;
for x:=3 to 19 do
s:=round(s+(sqr(x)+x)/(a*x));
writeln('s=',s:0);
readln;
end.

[Ximer]

Спасибо за помощь.

[Ximer]

Ещё с этой помогите.
uses crt;
var a,x,s:integer;
begin
writeln('s=');
readln(s);
x:=s;
a:=s;
i:=0;
repeat
a:=a+s*0.03;
i:=i+1;
until (a<(s*1.5));
writeln('через ',i+1,'Года');
readln;
end.

[Noor]

А ты переменную i объявил, зачем тебе x:=s;, если x врасчетах не задействован ?
И читайте описания ошибок которые возникают при компиляции
http://valera.asf.ru/delphi/lab/Pril.html

[alex_fcsm]

uses crt;
var x,s,i:integer;
    a:real;
begin
writeln('s=');
readln(s);
x:=s;
a:=s;
i:=0;
repeat
a:=a+s*0.03;
i:=i+1;
until (a<(s*1.5));
writeln('через ',i+1,'Года');
readln;
end.