строки

[Гарри]

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

[Stilet]

var s:string;i:integer;
begin
 s:='Дана строка символов. Преобразовать эту строку, удалив из нее каждый символ "*". ';
for i:=Length(s) downto 1 do if s[i]='*' then delete(s,i,1); write(s) ;readln;
end.