Составьте программу ,заменяющую меньшее из двух чисел суммой,а большее -произведением этих чисел

Program z123;
var  a, b, c: integer;
begin  writeln('Введите числа');  readln(a, b);  if a > b then  begin    write('Первое число больше поэтому ', a, ' заменяем на ');    c := a * b;    write(c, ', второе число меньше поэтому ', b, ' заменяем на ');    a := a + b;    write(a, '.');  end  else  begin    write('Второе число больше поэтому ', b, ' заменяем на ');    c := a * b;    write(c, ', первое число меньше поэтому ', a, ' заменяем на ');    a := a + b;    write(a, '.');  end;end.