Что здесь не так? Пишет ошибка 26 (паскаль)

Question

Все массивы String, s1,ss1 и тд Integer 
begin 
if (a[s1]+a[s2]=((((a[s1]+a[s2])=('АД')) 
or ((a[s1]+a[s2])=('АЖ')) 
or ((a[s1]+a[s2])=('АЗ')) 
or ((a[s1]+a[s2])=('АЙ')) 
or ((a[s1]+a[s2])=('АР')) 
or ((a[s1]+a[s2])=('АС')) 
or ((a[s1]+a[s2])=('АУ')) 
....
or ((a[s1]+a[s2])=('ЯМ')) 
or ((a[s1]+a[s2])=('ЯР')))and (a[ss1]+a[ss2]=(((a[ss1]+a[ss2])=('АД')) 
or ((a[ss1]+a[ss2])=('АЖ')) 
or ((a[ss1]+a[ss2])=('АЗ')) 
or ((a[ss1]+a[ss2])=('АЙ')) 
... 
or ((a[ss1]+a[ss2])=('ЯД')) 
or ((a[ss1]+a[ss2])=('ЯК')) 
or ((a[ss1]+a[ss2])=('ЯМ')) 
or ((a[ss1]+a[ss2])=('ЯР'))) and (b[s1,ss1]+b[s2,ss2]=(((b[s1,ss1]+b[s2,ss2])=('АД')) 
or ((b[s1,ss1]+b[s2,ss2])=('АЖ')) 
or ((b[s1,ss1]+b[s2,ss2])=('АЗ')) 
or ((b[s1,ss1]+b[s2,ss2])=('АЙ')) 
or ((b[s1,ss1]+b[s2,ss2])=('АР')) 
....
or ((b[s1,ss1]+b[s2,ss2])=('ЯК')) 
or ((b[s1,ss1]+b[s2,ss2])=('ЯМ')) 
or ((b[s1,ss1]+b[s2,ss2])=('ЯР'))) then begin ...end; end.

Антон · Accepted Answer

Извините, но у вас такая каша. Разбейте это мегавыражение на части, засуньте ваши строчки в массив и все в этом духе. Ошибка 26 - type mismatch. Вылавливать его в ТАКОМ выражении - себе дороже.

Ильшат · Answer

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

Василий · Answer

Это ж надо умудриться так наговнокОдить) 
 
Ну вот, скажем, это 
 
if (a[s1]+a[s2]=((((a[s1]+a[s2])=('АД')) 
 
что за хренотень ?

Дмитрий · Answer

Полагаю, несоответствие типов в a[s1]+a[s2]=((((a[s1]+a[s2])=('АД')) - булевский сравнивается с целым. Вообще код фантастический по неоптимальности. 
А через цикл и массив будет, кстати, действий не больше, зато еще компилятор сможет их оптимизировать :)

Илья · Answer

Ошибки паскалем не стандартизированы. В Turbo Pascal ошибка 26 - несоответствие типов (например, сравнение string и boolean). 
И если через цикл будет слишком много, то неужели ты думаешь что вручную будет меньше? О_о