Описать процедуру ClearMin(А,В) - Pascal

Формулировка задачи:

описать процедуру ClearMin(А,В), заменяющую меньшее из двух чисел А и В нулем(А иВ - вещественные параметры-переменные). продемонстрировать ее работу на примере.

Решение задачи: «Описать процедуру ClearMin(А,В)»

Листинг программы

procedure ClearMin(var a,b:real);//по условию вещественные+выходные параметры
begin
  if b<a then b:=0 else a:=0;
end;
var a,b:real;
begin
writeln('Vvedie 2 chisla:');
readln(a,b);
ClearMin(a,b);
write('a=',a:0:2,'  b=',b:0:2);
readln
end.

Объяснение кода листинга программы

Описана процедура ClearMin(А,В) для двух вещественных чисел А и В.
Если число В меньше числа А, то число В присваивается значение 0.
Если число В больше или равно числу А, то число А присваивается значение 0.
Объявлены две переменные типа real - a и b.
Выводится запрос на ввод двух чисел.
Введенные числа сохраняются в переменных a и b.
Вызывается процедура ClearMin(a,b), передавая ей значения переменных a и b.
Выводится сообщение с значениями переменных a и b после применения процедуры ClearMin.
Программа ожидает ввода для продолжения.