Составить подпрограмму которая вводит с клавиатуры три числа обретает наивеличайшее из

Это просто программа, ее просто можно поменять на подпрограмму, если тебе необходимо
Program P1;
var a,b,c:real;
begin
write('Введите три числа: ');
readln(a,b,c);
if (agt;b) and (agt;c) then writeln('Число ',a,' самое большое');
if (bgt;a) and (bgt;c) then writeln('Число ',b,' самое большое');
if (cgt;a) and (cgt;b) then writeln('Число ',c,' самое великое');
readln;
end.