Определить, одинаковы ли второй и пятый символы в названии клуба

var
 st: string;
 i, len, n, m: integer;
 buf: char;
begin
 writeln('Название клуба: ');
 readln(st);
 len:=length(st);
 writeln('Кол-во символов в названии: ', len);
  if st[2] = st[5] then write('Второй и пятый символы одинаковые!')
   else writeln('Второй и пятый символы разные!');
 write(st);
  for i:=1 to len do
   write('*');
 writeln;
 writeln('Введите порядковые номера букв, которы нужно поменять местами: ');
 readln(n, m);
 buf:=st[n];
 st[n]:=st[m];
 st[m]:=buf;
 writeln(st);
end.

writeln(length(s));

if (s[2] = s[5]) then writeln('odinakovy')
else writeln('ne odinakovy');

Procedure Replace(var s:string;a:char;b:char);
    var i:integer;
Begin
    for i:=1 to length(s) do
        if (s[i] = a) then s[i]:=b;
End;

var
 st: string;
 i, len, n, m: integer;
 buf: char;
begin
 writeln('Название клуба: ');
 readln(st);
 len:=length(st);
 writeln('Кол-во символов в названии: ', len);
  if st[2] = st[5] then write('Второй и пятый символы одинаковые!')
   else writeln('Второй и пятый символы разные!');
 write(st);
  for i:=1 to len do
   begin
    if (st[i] in ['A'..'Z']) or (st[i] in ['a'..'z']) or (st[i] in ['а'..'я', 'ё']) or (st[i] in ['А'..'Я', 'Ё']) then
     write('*');
   end;
 writeln;
 writeln('Введите порядковые номера букв, которы нужно поменять местами: ');
 readln(n, m);
 buf:=st[n];
 st[n]:=st[m];
 st[m]:=buf;
 writeln(st);
end.