Ввести 4 числа a b c d.из большего вычесть меньше (на языке паскаля)

Var i:byte;
x,y:integer;
vt:array[1..4]of integer;

BEGIN
for i:=1 to 4 do begin
write('Введите ',i,'-е число ');
readln(vt[i]);
end;

x:=vt[i];//минимум
y:=vt[i];//максимум
for i:=2 to 4 do begin
if x>vt[i] then
x := vt[i];
if y y := vt[i];
end;

writeln('Минимальное число ', x);
writeln('Максимальное число ', y);
writeln('Разница ', y-x);
END.