Вопрос Почему PASCAL выдает ошибку?

[maks57]

Я пишу программу, где должны будут в некоторых местах буквы заменяться символами. Но в один момент мне выдаёт ошибку "Program1.pas(57) : TUPLE_ELEMENTS_COUNT_MUST_BE_LESSEQUAL_7" Я не смог перевести понятно для себя. Где я допустил ошибку?
Программа:
program unnaamed;
uses crt;
var
а, б, в, д, г, е, ё,ж, з, и, Й, К, Л, М, Н, О, П, Р, С, Т, У, Ф, Х, Ч, Щ, Ш, Ь, Ы, Ъ, Э, Ю, Я: string;
b:integer;
begin
textcolor(white);
Write('$[(& $ :*:%#@^>');
textcolor(yellow);
write('UNNAMED');
textcolor(white);
Writeln('<');
delay(500);
clrscr;
Write('Вход в систему >');
textcolor(yellow);
write('UNNAMED');
textcolor(white);
Writeln('<');
delay(500);
а: ='?';
б: ='!';
в: ='$';
г: ='"';
д: ='&';
е: ='#';
ё:='(';
ж: ='-';
з: ='_';
и: ='*';
й: ='+';
к: ='=';
л: ='\';
м: ='@';
н: ='/';
о: ='(';
п: ='|';
р: =',';
с: =':';
т: ='%';
у: ='^';
ф: ='}';
х: ='[';
ч: =']';
щ: ='{';
ш: ='~';
ь: ='`';
ы: ='>';
ъ: ='<';
э: =';';
ю: ='c';
я: ='№';
textcolor(red);
Writeln('Введи',т, е,' се',р,' ийн',ы,' й но',е,' р');
textcolor(yellow);
readln(b);
If b=1870011 then writeln ('Вхо',д,' в сис',т,' ем',у) else ('Т',а,' ког',о,' сери',й,' ного к',о,' да н',е,' су',щ,' ествует');
end.

 

[лёха т]

if bla-bla then writeln(bla-bla) else (bla-bla) - что это за хрень после else?

 

[Дюха]

Тут ошибок не перечесть. В частности, : = - не то же самое, что :=

 

[Nummer]

Потому что имена переменных русские буквы