Программа работает. Помогите добавить условие

[Smile189]

Программа работает. Помогите добавить условие, что если символ не входит в русский алфавит выдать ошибку (данная программа просто удаляет символы которые не входят в алфавит, а нужно что бы об этом еще и сообщалось)

program zi3;
 
{$APPTYPE CONSOLE}
 
uses
  windows,
  SysUtils;
 
//Шифрование Цезаря
function Cesar_Crypt(s:string):string;
const
  SizeA = 34; //Размер алфавита
  RusA = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; //Алфавит
var i, P , n :integer;
    temp:string;
begin
Result:=' ';
writeln('Введите размер шага');
readln(n);
 s:=AnsiLowerCase(s);
temp:='';
 
//удаление символов сообщения, не входящих в наш алфавит
for i := 1 to length(s) do if pos(s[i],RusA)<>0 then temp:=temp+s[i];
s:=temp;
for i:=1 to length(s) do
  begin
 
  P:=pos(s[i],RusA)+n;
 
  if P>SizeA then
  P:=P-SizeA;
  Result:=Result+RusA[P];
 
  end;
end;
 
//Расшифровка Цезаря
function Cesar_DeCrypt(s:string):string;
const
  SizeA = 34; //Размер алфавита
  RusA = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; //Алфавит
var i, P, n :integer;
    temp:string;
begin
writeln('Введите размер шага');
readln(n);
s:=AnsiLowerCase(s);
temp:='';
 
//удаление символов сообщения, не входящих в наш алфавит
for i := 1 to length(s) do if pos(s[i],RusA)<>0 then temp:=temp+s[i];
s:=temp;
for i:=1 to length(s) do
  begin
  P:=pos(s[i],RusA)-3;
  if P<=0 then
  P:=P+SizeA;
  Result:=Result+RusA[P];
  end;
end;
 
var
 aStr : String;
 bStr: string;
begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
 
writeln ('введите фразу для шифрования');
readln ( aStr );
writeln ('зашифрованный текст - ',Cesar_Crypt(aStr));
 
writeln('введите фразу для расшифрования');
readln ( bStr );
writeln ('расшифрованный текст - ',Cesar_DeCrypt(bStr));
readln;
end.

[Replicant]

// Шифрование Цезаря
function Cesar_Crypt(s: string): string;
const
  SizeA = 34; // Размер алфавита
  RusA = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; // Алфавит
var
  i, P, n: integer;
  temp: string;
  flag: boolean;
  Q: string;
begin
flag:=false;
  Result := ' ';
  writeln('Введите размер шага');
  readln(n);
  s := AnsiLowerCase(s);
  temp := '';

  // удаление символов сообщения, не входящих в наш алфавит
  for i := 1 to length(s) do
    if pos(s[i], RusA) <> 0 then
      temp := temp + s[i]
    else
      flag := true;
  if flag then
  begin
    writeln('удалить буржуйские буквы? да/нет');
    readln(Q);
    if Q = 'да' then
      s := temp
    else if Q <> 'нет' then
      begin
         writeln('неверный ввод = кривые руки:=да. Буквы удалим ');
         readln;
         s := temp
     end;
  end;
  for i := 1 to length(s) do
  begin

    P := pos(s[i], RusA) + n;

    if P > SizeA then
      P := P - SizeA;
    Result := Result + RusA[P];

  end;
end;