Удалить из строки всё запятые, предшествующие первой точке, и заменить знаком "+" все цифры "3", встречающиеся после первой точки

var
  s: string;
  i, p: integer;
begin
  writeln('Введите строку:');
  readln(s);
  while (length(s) > 0) and (s[1] = ' ') do delete(s, 1, 1); //удаление пробелов в начале
  while (length(s) > 0) and (s[length(s)] = ' ') do delete(s, length(s), 1); //удаление пробелов в конце
  for i := length(s) - 1 downto 2 do //просматриваем строку...
    if (s[i] = ' ') and (s[i+1] = ' ') then delete(s, i, 1); //удаление пробелов в середине
  writeln('Строка без лишних пробелов:');
  writeln(s);
  p := pos('.', s); //позиция первой точки
  if p = 0 then writeln('Строка не содержит точек') //если точки нет, то печатаем сообщение
  else //иначе
    for i := length(s) downto 1 do //просматриваем строку...
      if (i > p) and (s[i] = '3') then s[i] := '+' //заменяем "3" на "+" после точки
      else
        if(i < p) and (s[i] = ',') then delete(s, i, 1); //удаляем "," перед точкой
  writeln('Преобразованная строка:');
  writeln(s);
  readln
end.