Вы даже изначальную строку привели с ошибками!

САЯ БОЛЬШАЯ СОЦИАЛЬНАЯ СЕТЬ В РОССИИСЭТО

Судя по всему ответ номер 1.

Обоснование:
Const ss = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
Var
  S : String;
  i : Byte;
Begin
  S:='ФГВ ДСОЯЫГВ ФСЩЛГОЯРГВ ФЗХЯ Е УСФФЛЛФАХС';
  For i:=1 to Length(S) do
    If Pos(S[i],ss)>0 then
      If Pos(S[i],ss)>3 then S[i]:=ss[Pos(S[i],ss)-3] else S[i]:=ss[Length(ss)-(3-Pos(S[i],ss))];
  Writeln(S);
end.