Преобразовать последовательность, удалив все символы, не являющиеся буквами и цифрами

var n:char;
    s1,s2,s3,sn:string;
begin
  readln(s1,n);
  while s1<>' ' do
    begin
      if (s1>='A')and(s1<='Z') then s1:=LowerCase(s1);
      if (n>='!')and(n<='/')or(s1>='!')and(s1<='/')or(s2>='!')and(s2<='/')or
      (s3>='!')and(s3<='/')then writeln(s1);
      read(s1);
    end;
  readln;
  readln;
end.

var 
    s:string;
begin
  readln(s,n);
  for i := 1 to length(s) do
  begin
     if s[i] = ' ' then exit;
     if (s[i] in 'A'..'Z') then s[i] := LowerCase(s[i])
     else if not(s[i] in '0'..'9') then delete(s, i, 1)
  end;
  readln;
end;

var ch: char;
begin
  repeat
    readln(ch);
    if (ch >= 'A') and (ch <='Z') then
    begin   
      ch := LowerCase(ch);
      writeln(ch);
    end
    else if (ch>='0') and (ch <='9') then writeln(ch);
  until (ch = ' ');
end;

var ch: array[1..100] of char;//массив символов
     i, j: byte;//счетчики
begin
i := 0;
repeat//считываем символы до пробела
  i := i + 1;
  readln(ch[i]);
until (ch[i] = ' ') or (i = 100);
writeln('Новая последовательность');
for j := 1 to i do//проверяем какие символы выводить на экран
    if (ch[j] >= 'A') and (ch[j] <='Z') then
    begin   
      ch[j] := LowerCase(ch[j]);
      write(ch[j]);
    end
    else if (ch[j]>='0') and (ch[j] <='9') then write(ch[j]);
end;