Склавиатуры вводятся вес яблока и вес груши. программа должна вывести название и вес более тяжелого предмета

Var a,b:real;
Begin
  Write('Введите вес груши:'); readln(a);
  Write('Введите вес яблока'); readln(b);
if a>b then writeln('Вес яблока: ',b);
if a<b then writeln('Вес груши: ',a);
if a=b then writeln('Вес яблока и груши: ',a);
end.