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

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