Нужно исправить ошибку в программе

var s:string; 
procedure act1(s:string); 
var i:integer; j,g,k:char; 
begin 
for i:=length(s) downto 1 do 
begin 
for j:='a' to 'z' do 
if s[i]=j then writeln('англ символы:=',s[i]) ;
for g:='а' to 'я' do [FONT="Comic Sans MS"][/FONT]
if s[i]=g then writeln('русс символы:=',s[i]) ;
for k:='0' to '9' do 
if s[i]=k then writeln('цифры:=',s[i]) ;
end; 
end;
begin 
readln(s); 
act1(s); 
end.

var m:set of byte;
s:string;
i,w,s1:integer;
begin
m:=[];
for i:=0 to 255 do
begin
if i in M then m:=m+[i];
end;
write('Введите символ s=');
read(s);
for i:=length(s) downto 1 do
begin
val(s[i],s1,w);
if s[i] in ['А'..'я'] then
writeln('Это русский алфавит:=',s[i])
else
if s[i] in ['A'..'z'] then
writeln('Это латинский алфавит:= ',s[i])
else if s1 in M then
writeln('Это цифра:=',s1)
else 
writeln('Другой символ:=',s[i])
end;
end.

var m:set of byte;
s:string;
i,w:integer;
s1:byte;
j:byte;
begin
m:=[];
for i:=1 to 256 do
begin
m:=m+[i];
end;
write('Введите символ s=');
read(s);
for i:=length(s) downto 1 do
begin
val(s[i],s1,w);
if s[i] in ['А'..'я'] then
writeln('Это русский алфавит:=',s[i])
else
if s[i] in ['A'..'z'] then
writeln('Это латинский алфавит:= ',s[i])
else 
if s1 in M then
writeln('Это цифра:=',s1)
else
writeln('Другой символ:=',s[i]);
end;
end.