Использования текста как переменная

[dubailand]

Добрый вечер!
Времени в обрез поэтому просьба не наезжать. Если есть статьи, то дайте ссылки, а если не влом, то объясните.
Дело в том, что вводится слово, если оно совпадает, то продолжаем если нет-то переходим к другому действию. Примерно должно выйти так.
var
a,:?;
b,c:integer;
begin
b:=8;
c:=3;
write('Vvedite deistvie ');
read(a);
if a='Summa' then
writeln(b+c);
if a='Raznost' then
writeln(b-c);
end.

как правильно это оформить? Заранее спасибо!

[0479]

Да сама прога у вас написана верно.Только тип string у a укажите.Это строковый тип.И всё нормально будет.

[veniside]

var
  a: string;

Все хорошо, только представь, как этой хренью пользоваться. Это надо заклинание Raznost каждый раз без ошибок с большой буквы вводить. Т.е. надо как минимум обрезать пробелы по краям Trim() и привести к нижнему/верхнему регистру LowerCase()/UpperCase() перед сравнением.

[dubailand]

всем спасибо.
А можно ли настроить так, чтобы вводить только русскими буквами?
veniside, это пример другой программы, которое вообще не имеет отношение к тому, что я делаю. Эт как пример

[0479]

Попробуйте написать на русском ввести строку строку.В паскале раскладку смените.Хотя конкретно в нём не советую он с русским алфавитом не дружит.

[Serge_Bliznykov]

Хотя конкретно в нём не советую он с русским алфавитом не дружит.

Вы ошибаетесь. Прекрасно дружит.