Удалить из строки последний символ «*» — Pascal(Паскаль)

пример "w*e3*3rw*f" = "w*e3*3rwf"

uses crt;
var s:string;
    i:byte;
begin
clrscr;
writeln('Введите строку, содержащую символы *');
readln(s);
for i:=length(s) downto 1 do
if s[i]='*' then{попалась *}
 begin
  delete(s,i,1);{удаляем}
  break;{прерываем цикл}
 end;
write(s);
readln
end.