Преобразовать строку, удалив каждый символ "*" - Pascal

дана строка. преобразовать ее удалив каждый символ "*"

Листинг программы

var s: String; i: Integer;
begin
  ReadLn(s);
  for i:=Length(s) downto 1 do if s[i]='*' then Delete(s,i,1);
  WriteLn(s);
end.

Объяснение кода листинга программы

Объявляется переменная s типа String, которая будет хранить вводимую строку.
Объявляется переменная i типа Integer, которая будет использоваться в цикле.
Вводится строка с клавиатуры и сохраняется в переменную s.
Запускается цикл от длины строки до 1, в котором проверяется каждый символ строки.
Если текущий символ равен *, то удаляется этот символ из строки.
После завершения цикла выводится измененная строка без символов *.