Даны два действительных числа не равных друг другу. Меньшее из этих чисел заменить половинной их суммы, а большее их удвоенным произведением- Pascal(Паскаль)

program chisla;

uses crt;

var
  a, b: integer;
  c, d: real;

begin
  clrscr;
  writeln('Введите два числа');
  readln(a, b);
  If a < b then
  begin
    c := (a + b) / 2;
    d := 2 * (a * b);
    writeln(a, ' заменено на ', c);
    writeln(b, 'заменено на ', d);
  end;
  If a > b then
  begin
    c := (a + b) / 2;
    d := 2 * (a * b);
    writeln(b, ' заменено ', c);
    writeln(a, 'заменено', d);
  end;
  readln;

end.