Написать программу проверки корректности ввода строки по данной маске - Pascal ABC

uses crt;
const bk=['A'..'Z','a'..'z','А'..'я','Ё','ё'];
      cf=['0'..'9'];
var c:char;
    i:byte;
begin
writeln('Введите строку из 6 симолов по маске ББЦЦЦБ');
i:=1;
while i<=6 do
 begin
  textcolor(0);
  c:=readkey;
  write(c);
  if ((i in [1,2,6]) and not(c in bk))
  or ((i in [3..5]) and not(c in cf)) then
   begin
    gotoXY(whereX-1,whereY);
    textcolor(12);
    write(c);
    gotoXY(whereX-1,whereY);
   end
  else i:=i+1;
  if i>6 then writeln
 end
end.