Написать программу, которая сравнивает символы двух строк одинаковой длины и возвращает текст - Pascal ABC

const
  rus = ['А'..'Я', 'а'..'п', 'р'..'я', 'Ё', 'ё'];
 
var
  s1, s2: string;
  i: integer;
  f: boolean;
 
begin
  writeln('Введите строку:');
  readln(s1);
  repeat
    writeln('Введите вторую строку, такой же длины, что и первая:');
    readln(s2)
  until length(s1) = length(s2);
  writeln('Различающиеся русские буквы, стоящие в одинаковых позициях:');
  f := true;
  for i := 1 to length(s1) do
    if (s1[i] in rus) and (s2[i] in rus) and (s1[i] <> s2[i])
      then begin
        f := false;
        write(s1[i])
      end;
  if f
    then write('< не найдены >')
end.