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

Var max,min,x: real;
      i:byte;
Begin
read(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.