Удаление символов

if not s[i] in AlphabetSet then // удалить из строки все символы = s[i]

var
    s,stroka: string;
    i,j,n,k: byte;
    c: char;
    x:boolean;
    f: textfile;
    alphavit: array[1..60] of string=('А','Б','В','Г','Д','Е','Ж','З','И','Й','К','Л','М','Н','О'
 ,'П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ы','Э','Ю','Я',
 'а','б','в','г','д','е','ж','з','и','й','к','л','м','н','о'
 ,'п','р','с','т','у','ф','х','ц','ч','ш','щ','ы','э','ю','я');
 
procedure upstring (s1: string; var s2: string);//procedura perevoda v verhniy registr
var  i:integer;
       c: char;    
begin
s2:=uppercase(s1);
end;
 
begin
clrscr;
    writeln('Vvedite text: ');
    readln(s);
    upstring(s, stroka);//procedura perevoda v verhniy registr
  // begin
 for i:=0 to length(stroka) do
   begin
for j:=0 to 33 do begin //33- это длина алфавита
if (stroka[i]<>alphavit[j]) then delete(stroka,i,1);
end;
  end;    
 
    x:=true;
      for i:=1 to length(stroka) do//perestanovka simvolov v stroke
        if not (s[i] in alphavit) then x:=false;
          if (x=true) then begin
          begin
            n := length(stroka) div 2;//chastnoye ot deleniya
            j:=length(stroka);     //
            for i:= 1 to n do begin
            c:= stroka[i];        //obmen s pom dop peremen
            stroka[i]:=stroka[j];
            stroka[j]:=c;
            j:=j-1;
            end;
         end;
       writeln('Rezultat: ',stroka);
     writeln('Najmite <Enter> dliy vyhoda');
      end;
 
Assign(f, 'output.txt');    //zapis v file
rewrite(f);
k:=0;
for i:=1 to length(stroka) do
begin
k:=k+1;
if k mod 4<>0 then 
write(f, stroka[i])
else write(f, stroka[i], ' ');
   end;
close(f);
readln
end.

## var русские := 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
var строка := ReadLnString;
строка := ReverseString(строка.ToUpper.Where(c->русские.Contains(c)).JoinIntoString);
строка.Println;

## ReadlnString
.Where(ch->ch.ToUpper in 'А'..'Я')
.Println;