Дана строка символов. Удалить из неё последний знак препинания — Pascal(Паскаль)

var
i:integer;
s:string;
begin
readln(s);
for i:=length(s) downto 1 do begin
 if s[i] in ['.',',',':','?','!','-'] then
    delete(s,i,1);
writeln(s);
end.