Меньшее из 2-ух чисел z,s поменять их полусуммой , а большее

Var
  z, s: integer;

begin
  write('Введите числа: ');
  read(z, s);
  if z lt; s
    then writeln('Новые значения:', 10, 'z=', (z + s) / 2, ' s=', z * s * 2)
  else if z gt; s
    then writeln('Новые значения:', 10, 'z=', z * s * 2, ' s=', (z + s) / 2)
  else writeln('Числа одинаковы');
end.