Создать подпрограмму Minmax(A,B), записывающую в переменную A минимальное из значений A и B, а в переменную B - максимальное из этих значен Язык Pascal

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