Валя и вера собрали a кг клубники. из них b кг собрала вера. кто из девочек собрал клубники больше и на сколько? в паскаль

Var
  a,b,c:real;
begin
  Write('Сколько кг клубники собрали обе девочки? '); Read(a);
  Write('Сколько кг клубники собрала Вера? '); Read(b);
  c:=a-b; { собрала Валя }
  if b>c then Writeln('Вера собрала на ',b-c,' кг больше')
  else
    if c>b then Writeln('Валя собрала на ',c-b,' кг больше')
    else Writeln('Клубники собрано поровну')
end.

Пример
Сколько кг клубники собрали обе девочки? 3.4
Сколько кг клубники собрала Вера? 1.8
Вера собрала на 0.2 кг больше