Напишите программу удаляющая из текста все буквы совпадающие с его последней…

Uses crt; var s: string; n,i: integer; beginreadln (s); n: =length (s); for i: =1 to n doif s[i]=s[n] then delete (s,i,1); writeln (s); end. Эта программа рассчитана на то, что удаляется и последний символ тоже