Из введенного слова вычеркните все буквы, совпадающие с его последней буквой — Pascal(Паскаль)

uses crt;
var st:string;
ch:char;
 
begin
 clrscr;
 write('-> ');
 readln(st);
 ch:=st[length(st)];
 while pos(ch,st)>0 do delete(st,pos(ch,st),1);
 writeln(st);
 readln;
end.