Выдаёт ошибку:операнды имеют неприводимые типы.Где я ошиблась?(Программа написана на языке Pascal ABC)

Program Home;

Uses CRT;

Var a: integer;

b: real;

Begin

WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер');

ReadLn (a);

WriteLn ('Введите число, которое нужно перевести в килограммы');

ReadLn (b);

If (a = 'килограмм') then

WriteLn (b);

If (a = 'миллиграмм') then begin

b := b / 1000000;

WriteLn (b);

end;

If (a = 'грамм') then begin

b:= b / 1000;

WriteLn (b)

end;

If (a = 'тонна') then begin

b:= b * 1000;

WriteLn (b);

end;

If (a = 'центнер') then begin

b:= b * 100;

WriteLn (b);

end;

End.