Дана строка . Проверьте ,если ли в строке еще один символ равный последнему. Вывести 'yes' или 'no' Сделать программу в паскале

Спасибочки еще раз

Не за что.

var  s:string;  i,n:integer;begin  Write('Введите строку: '); Readln(s);  n:=Length(s);  i:=Pos(s[n],s);  if (i>0) and (i<>n) then Writeln('Yes')  else Writeln('No')end.