Функция.напишите программу для нахождения наибольшего числа из 5 чисел. Для сравнения двух чисел создать соответствующую функцию

function Max(a,b:real):real;begin  if a>b then Max:=a  else Max:=bend;var  a,b,c,d,e,m:real;  i:integer;    begin  Writeln('Введите 5 чисел: ');  Read(a,b,c,d,e);  m:=Max(a,b);  m:=Max(m,c);  m:=Max(m,d);  m:=Max(m,e);  Writeln('Максимум: ',m)end.ПримерВведите 5 чисел: 2.3 4 -5.16 0 0.087Максимум: 4