Изменить регистр букв введенных слов

program pr1;
 
const
  alphabetRu: string[66] =
    'ёйцукенгшщзхъфывапролджэячсмитьбюЁЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';
var
  endChar: char;
  sentence: ansistring;
  i: integer;
begin
  repeat
    repeat
      WriteLn('введите несколько слов, разделенные различными знаками препинания:');
      ReadLn(sentence);
    until (sentence <> '');
    if (Pos(sentence[1], alphabetRu) > 0) and (Pos(sentence[1], alphabetRu) < 34) then
      sentence[1] := alphabetRu[Pos(sentence[1], alphabetRu) + 33];
    if (Pos(sentence[Length(sentence)], alphabetRu) > 0) and
      (Pos(sentence[Length(sentence)], alphabetRu) < 34) then
      sentence[Length(sentence)] :=
        alphabetRu[Pos(sentence[Length(sentence)], alphabetRu) + 33];
    for i := 2 to Length(sentence) - 1 do
    begin
      if (Pos(sentence[i + 1], alphabetRu) = 0) and
        (Pos(sentence[i], alphabetRu) > 0) and (Pos(sentence[i], alphabetRu) < 34) then
        sentence[i] := alphabetRu[Pos(sentence[i], alphabetRu) + 33];
      if (Pos(sentence[i - 1], alphabetRu) = 0) and
        (Pos(sentence[i], alphabetRu) > 0) and (Pos(sentence[i], alphabetRu) < 34) then
        sentence[i] := alphabetRu[Pos(sentence[i], alphabetRu) + 33];
      if (Pos(sentence[i + 1], alphabetRu) > 0) and (Pos(sentence[i - 1], alphabetRu) > 0) and
        (Pos(sentence[i], alphabetRu) > 33) then
        sentence[i] := alphabetRu[Pos(sentence[i], alphabetRu) - 33];
    end;
    WriteLn(sentence);
    WriteLn('для продолжения введите любой символ и enter, для выхода- пробел и enter');
    ReadLn(endChar);
  until (endChar = ' ');
end.