Встречено 'to', а ожидался оператор
Program noname1;
var i,s:integer;
begin
writeln('Введите S');
readln(s);
While i= 1 to 10 do
begin
S:= i*7;
end;
writeln(i,' *7=',s);
end.

Что не так?