удалить все символы, которые не являются буквами или цифрами, и заменив каждую большую букву одноименной малой

uses crt;
procedure LowCase(var s:string);//приведение к нижнему регистру
var i:byte;
begin
for i:=1 to length(s) do
if s[i] in ['A'..'Z','А'..'П'] then s[i]:=chr(ord(s[i])+32)
else if s[i] in ['Р'..'Я'] then s[i]:=chr(ord(s[i])+80)
else if s[i]='Ё'then s[i]:='ё';
end;
procedure Del(var s:string);//удаление не букв и не цифр
var i:byte;
begin
for i:=length(s) downto 1 do
if not(s[i] in ['A'..'Z','a'..'z','А'..'п','р'..'ё','0'..'9'])
then delete(s,i,1);
end;
var st:string;
begin
clrscr;
writeln('Stroka:');
readln(st);
LowCase(st);
Del(st);
write(st);
readln
end.

uses crt;
var s:string;
    i:byte;
begin
clrscr;
writeln('Stroka:');
readln(s);
{приведение к нижнему регистру}
for i:=1 to length(s) do
if s[i] in ['A'..'Z','А'..'П'] then s[i]:=chr(ord(s[i])+32)
else if s[i] in ['Р'..'Я'] then s[i]:=chr(ord(s[i])+80)
else if s[i]='Ё'then s[i]:='ё';
{удаление не букв и не цифр}
for i:=length(s) downto 1 do
if not(s[i] in ['A'..'Z','a'..'z','А'..'п','р'..'ё','0'..'9'])
then delete(s,i,1);
write(s);
readln
end.

for i:=length(s) downto 1 do
if s[i] in ['0'..'9'] then delete(s[i,1);