Зачем коды не работает?

Question

[Palwanchik]

Призошло ошибка при запуске программа pas.
Error: Syntax error, ")" expected but "," found

program test2;
uses crt;
var
pasyl: string;
a,b,c,d,e,f,g,h,l,m,n,p: string;
begin
a:= 'Yanwar';b:= 'Fewral';c:= 'Dekabr';
d:= 'Mart';e:= 'Aprel';f:= 'May';
g:= 'Iyun';h:= 'Iyul';l:= 'Awgust';
m:= 'Sentyabr';n:= 'Oktyabr';p:= 'Noyabr';
clrscr;
write('Bir pasylyn sanyny yada adyny yazyn: ');read(pasyl);
clrscr;
if (pasyl = a,b,c) then
write('Gysh pasly');
if (pasyl = d,e,f) then
write('Bahar pasly');
if (pasyl = g,h,l) then
write('Tomus pasly');
if (pasyl = m,n,p) then
write('Guyz pasly');


readln;
readln;
end.

Comments

[alexalexes]

pasyl = a,b,c

А вы сами придумали новый синтаксис - писать переменные через запятую в правой части от сравнения?
Может, все таки, так нужно?

(pasyl = a) or (pasyl = b) or (pasyl = c)

[kalapanga]

Про саму ошибку уже всё написали. Добавлю, что можно улучшить в программе.
1) В переменных a,b,c,d,e,f,g,h,l,m,n,p нет необходимости. Вполне можно писать так:

if (pasyl = 'Yanwar') or (pasyl = 'Fewral') or (pasyl = 'Dekabr') then

2) В программе никак не обрабатывается случай, когда пользователь ввёл неправильную строку. Не хорошо.

[krypt3r]

Ещё один вариант, насколько я помню со времён ТурбоПаскаля 7.0:

case pasyl of
    'Yanwar', 'Fewral', 'Dekabr':
        write('Gysh pasly');
    // далее самостоятельно
end;