задача: работа со строками, заменить + на -

[BDA]

function convert(s: string): string;
var
  i: integer;
  f: boolean;
begin
  f := false;
  for i := 1 to length(s) do
    if s[i] = ' ' then
      f := true
    else if f and (s[i] = '+') then
      s[i] := '-'
    else
      f := false;
  convert := s;
end;

И без всяких Pos

[AlexP777]

что то не так

program lab8var4;
var str:string;
function convert(s: string): string;
var
  i: integer;
  f: boolean;
begin
  f := false;
  for i := 1 to length(s) do
    if s[i] = ' ' then
      f := true
    else if f and (s[i] = '+') then
      s[i] := '-'
    else
      f := false;
  convert := s;
end; 
BEGIN
readln(str); writeln(str);
convert(str);
writeln(str);
end.

в результате получаю исходную строку
ввел: +++ dfgn+++ sdfg+++ +++++++
вывело: +++ dfgn+++ sdfg+++ +++++++

[BDA]

Что не удивительно.

writeln(convert(str));

[Serge_Bliznykov]

ну, или так:

BEGIN
  readln(str); 
  writeln(str);
  str := convert(str);
  writeln(str);
end.

[BDA]

Или так - вариантов полно:

program lab8var4;
var str:string;
procedure convert(var s: string);
var
  i: integer;
  f: boolean;
begin
  f := false;
  for i := 1 to length(s) do
    if s[i] = ' ' then
      f := true
    else if f and (s[i] = '+') then
      s[i] := '-'
    else
      f := false;
end; 
BEGIN
readln(str); writeln(str);
convert(str);
writeln(str);
end.