процедура! Реализуйте плиз, процедура Опции

[Artf]

Я уже устала от них. голова раскалывается. Но я не зря поступила в вуз. Прошу вас, напишите
мне программу, а то мне скоро сдавать, а я сама не смогу уже, пробовала:
Описать процедуру Minmax (A,B), записывающую в переменную A минимальное из значений A и B, а
в переменную B-максимальное из этих значений(A и B - вещественные параметры, являющиеся
одновременно входными и выходными). Используя 4 вызова этой процедуры, найти минимальное и
максимальное из чисел A,B,C,D.

[Reflex]

procedure minmax(var A, B : real);
function min(a,b:real):real;
begin
  if a>=b then begin
    min:=b;
    exit;
  end;
  if b>=a then begin
    min:=a;
    exit;
  end;
end;
function max(a,b:real):real;
begin
  if a>=b then begin
    max:=a;
    exit;
  end;
  if b>=a then begin
    max:=b;
    exit;
  end;
end;
var I,j:real;
begin
  i:=min(a,b);
  j:=max(a,b);
  a:=i;
  b:=j;
end; 

откомментируй как этот код работает.

а вопрос 2 - типичный пузырек

[Artf]

откомментируй как этот код работает.

Спасибо!!! Вы хотите что бы я откоментировала ? а зачем? еси скажете зачем то я откоментирую-найду время напишу!