Нахождение максимума из вещественных чисел — Pascal(Паскаль)

Пользователь вводит с клавиатуры четыре вещественных числа. Необходимо найти максимальное из них и вывести на экран.

Для того чтобы найти максимальное число из некоторого множества четных чисел, необходимо попарно сравнивать числа и с теми, которые оказались большими, проделать очередное сравнение. В конечном итоге получим одно максимальное число, которое нам и нужно найти. Так как в данном примере необходимо найти наибольшее из 4, то количество операций сравнения будет равно трем.

Для упрощения поставленной задачи, процесс сравнения выделили в отдельную процедуру, в качестве первых двух параметров передаются сравниваемые числа и третьим переменная для полученного результата сравнения.

Uses Crt;
Var a,b,c,d,max,max1,max2 : Real;

Procedure bol2( aa,bb : Real; var maxmax : Real );
Begin
	If aa>bb Then maxmax:=aa
		Else maxmax:=bb;
End;

Begin
	ClrScr;
	Write('введите a,b,c,d через пробел ');
	Readln(a,b,c,d);
	bol2(a,b,max1);
	bol2(c,d,max2);
	bol2(max1,max2,max);
	Writeln('max=',max);
	Readln
End.