Задача на процедуру с числовым параметром.

[xxxPascalxxx]

Здравствуйте, буду благодарен за помощь в решении такой задачи:

Описать процедуру Minmax(X, Y), записывающую в переменную X минимальное из значений X и Y, а в переменную Y — максимальное из этих значений (X и Y — вещественные параметры, являющиеся одновременно входными и выходными). Используя четыре вызова этой процедуры, найти минимальное и максимальное из данных чисел A, B, C, D.

Заранее очень благодарен.

[Tayfun]

Процедура:

procedure min_max(var x,y:integer);
var
p:integer;
begin
if x>y then begin p:=x; x:=y; y:=p; end;
end;

Обращение производиться min_max(A,B);
значению A возвращение меньшее значение эллементов, а В большее.
Остаеться только правильно оформить программу.