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

не могу исправить задание

for i:=2 to 4 do begin if (x>vt[i]) then x := vt[i]; if (y<vt[i]) then y := vt[i]; end;