"Шифр Цезаря" Этот шифр реализует последующее преобразование текста: каждая буковка текста

var incrypted:string;
begin
incrypted:=НУЛТХСЁУГЧЛВ;
writeln(Зашифрованное слово: ,incrypted);
writeln(Расшифрованное слово: );

for i:integer:=1 to length(incrypted) do
begin

Так как буковка Ё стоит раздельно от остального алфавита в шифровке, то нужно вынести отдельное условие для того, чтоб правильно расшифровать слово:
if ord(incrypted[i])=1025 then
write(chr(1043))
Это условие необходимо для того, чтоб 1-ые три буковкы брали расшифровку из последних букв алфавита:
else if (ord(incrypted[i])lt;1043) then
write(chr(ord(incrypted[i])+29))
else
write(chr(ord(incrypted[i])-3))
end;
end.