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

Я пишу программу, где должны будут в некоторых местах буквы заменяться символами. Но в один момент мне выдаёт ошибку "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.