Напишите программу , которая выбирает максимальное и минимальное из пяти введенных чисел. Помогите(

Var max,min,x: real;      i:byte;Beginread(x);min:=x;max:=x;     for i:=2 to 5 do         begin            read(x);            if (x<min) then min:=x            else                if (x>max) then max:=x;          end;writeln ('Max = ', max,' Min = ', min);end.