Неверный результат в программе с условными операторами - Pascal

Формулировка задачи:

Вместо результата всегда пишет-0

program vareniki;
var a: char; g,b,c: single;
begin
writeln ('На какой планете вы живёте?');
readln (a);
writeln (a);
if a='Земля' then g:=10;
if a='Меркурий' then g:=3.7;
if a='Венера' then g:=8.87;
if a='Юпитер' then g:=24.79;
if a='Марс' then g:=3.76;
if a='Сатурн' then g:=7.21;
if a='Уран' then g:=8.43;
if a='Нептун' then g:=10.71;
if a='Плутон' then g:=0.81;
writeln ('Сколько кг вареников вы хотите приобрести?');
readln (b);
c:=b*g*300;
write ('Cтоимость ваших вареников-',c,'синих пуговиц с шестью дырками.')
end.

Решение задачи: «Неверный результат в программе с условными операторами»

Листинг программы

program vareniki;
var a: string; g,b,c: single;
begin
writeln ('На какой планете вы живёте?');
readln (a);
writeln (a);
if a='Земля' then g:=10;
if a='Меркурий' then g:=3.7;
if a='Венера' then g:=8.87;
if a='Юпитер' then g:=24.79;
if a='Марс' then g:=3.76;
if a='Сатурн' then g:=7.21;
if a='Уран' then g:=8.43;
if a='Нептун' then g:=10.71;
if a='Плутон' then g:=0.81;
writeln ('Сколько кг вареников вы хотите приобрести?');
readln (b);
c:=b*g*300;
write ('Cтоимость ваших вареников-',c,'синих пуговиц с шестью дырками.')
end.

Объяснение кода листинга программы

В программе объявлены три переменные: a, g и b. Переменная a типа string, переменные g и b типа single.
Выводится вопрос о том, на какой планете пользователь живет.
Считывается ответ пользователя.
Проверяется, совпадает ли ответ пользователя с одним из вариантов ответа. Если да, то присваивается значение переменной g.
Вычисляется стоимость вареников, используя значения переменных a, g и b.
Выводится сообщение с результатом вычислений.