Konstrukcija For..to..do, PASCAL

Uzdevums:
Sastadit programmu, kas aprekina  n  pec kartas nemtu skaitlu summu.
(Intervala sakumu un n ievada lietotajs). Piemeram, ja intervala
sakums ir 3 un n=4, tad programma saskaita 3+4+5+6=18.

Program p1;
Uses Crt;
var i,n,x,s:integer;

Begin
ClrScr;
Writeln (' Ievadiet skaitla sakuma vertibu: ');
readln (x);
writeln (' Ivadiet skaitla beigu vertibu "n": ');
readln (n);
s:=x;
for i:=x to n do
begin
s:=s+i;
writeln ('Skaitlis ir ',s);
end;
readln
END.


Kur ir kluda, manis veidotaja skripta?