Дана строка символов,среди которых есть хотя бы одна точка.Преобразовать строку,удалив из неё все запятые ,предшествующие первой точке,и заменив знаком «+»все цифры «5»,встречающиеся после первой точки — Pascal(Паскаль)

var s:string;
    i,n:integer;
begin
writeln('Введите строку');
readln(s);
n:=pos('.',s);
for i:=1 to n-1 do
if s[i]=',' then delete(s,i,1);
for i:=n+1 to length(s) do
if s[i]='5' then s[i]:='+';
writeln(s);
readln;
end.