Мне нужно сделать программу с помощью цикла repeat

авторProgram p3;
uses crt;
var i:integer;
x,y,xmin,xmax,nmin,nmax,rez: real;
begin
clrscr;
readln (x);
xmin:=x; xmax:=x;
repeat
for i:=2 to 10 do
begin
readln (y);
if y<xmin then
begin
xmin:= y;
nmin:= i;
end;
if y>xmax then
begin
xmax:= y;
nmax:= i;
end;
end;
until(i:=1 to 10);
rez:= xmax-xmin;
writeln ('rez=',rez);
end.

Но выдаёт ошибку. Как сделать???

Сама задача:
3. авторС клавиатуры вводится 10 различных произвольных чисел. Найти разность между наибольшим и наименьшим из них.

tanglir>Но выдаёт ошибку.
Телепаты в отпуске.

>Как сделать???
Руками.


На дельфи/паскале я говнокодил давным-давно, но такого синтаксиса что-то не припомню.

неограничивает 10-ю числами