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

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