Удалить из строки все символы «+», стоящие после символа «5» — Pascal(Паскаль)

пример "ab+5+55a++b+" = "ab+555a5b"

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