Создать подпрограмму minmax(a,b), записывающую в переменную a минимальное из значений a и b, а в переменную b - максимальное из этих значен язык pascal

procedure Minmax(var a, b: integer);
var min, max: integer;
begin 
  if a < b then min := a else min := b;
  if a > b then max := a else max := b;
  a := min;
  b := max;
end;