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

Var
A,B,C,D,E,M:real;
Begin
WriteLn('Введите 5 чисел');
Read(A,B,C,D,E);
M:=A;
if M<B then M:=B;
if M<C then M:=C;
if M<D then M:=D;
if M<E then M:=E;

if A>B then A:=B;
if A>C then A:=C;
if A>D then A:=D;
if A>E then A:=E;

Write(A,' ',M)
End.

Большое спасибо