"написать программу код Цезаря на Паскале авс"

Программа для шифра Цезаря на языке Паскаль:

program ШифрЦезаря;

uses
  SysUtils;

function Зашифровать(исходныйТекст: string; ключ: integer): string;
var
  i: integer;
begin
  for i := 1 to Length(исходныйТекст) do
  begin
    if IsLetter(исходныйТекст[i]) then // Проверка, является ли символ буквой
    begin
      if IsLowercase(исходныйТекст[i]) then // Проверка, является ли буква строчной
        исходныйТекст[i] := Chr(Ord('a') + (Ord(исходныйТекст[i]) - Ord('a') + ключ) mod 26)
      else
        исходныйТекст[i] := Chr(Ord('A') + (Ord(исходныйТекст[i]) - Ord('A') + ключ) mod 26);
    end;
  end;
  Result := исходныйТекст;
end;

var
  текст: string;
  ключ: integer;
  зашифрованныйТекст: string;
begin
  Write('Введите текст для шифрования: ');
  Readln(текст);
  Write('Введите ключ шифрования (целое число от 1 до 25): ');
  Readln(ключ);
  
  if (ключ < 1) or (ключ > 25) then
  begin
    Writeln('Недопустимый ключ шифрования. Введите число от 1 до 25.');
    Exit;
  end;
  
  зашифрованныйТекст := Зашифровать(текст, ключ);
  Writeln('Зашифрованный текст: ', зашифрованныйТекст);
end.

Надеюсь, это поможет! Если у вас возникнут ещё вопросы, не стесняйтесь задавать.