Pascal. Преобразование строк.

[H4t]

Дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). Преобразовать каждое слово в строке, заменив в нем все последующие вхождения его первой буквы на символ «.» (точка).

Var
stroka,otvet:string; i,x:integer; sumbol:char;
Begin
 Write(' Введите строку ');
 Readln(stroka);
 x:=length(stroka);
 otvet:=stroka;
 for i:=1 to x do
  begin
   if (stroka[i]=' ') and (stroka[i+1]<>' ') then Sumbol:=Stroka[i+1];
   if stroka[i]=sumbol then otvet[i]:='.'
   else otvet[i]:=stroka[i];
  end;
 Writeln(otvet);
End.

Проблема в следующем: Первое слово не преобразовывается (по очевидным причинам, но исправить пока не выходит). Также заменяются на точки первые буквы в словах, хотя должны только последующие вхождения данной буквы.

Помогите пожалуйста исправить.

[Mad_Cat]

по очевидным причинам, но исправить пока не выходит

stroka:=' '+stroka; // вставьте перед циклом

[H4t]

Сообщение от Mad_Cat

stroka:=' '+stroka; // вставьте перед циклом

Спасибо, работает.

[H4t]

Сообщение от H4t

Заменяются на точки первые буквы в словах, хотя должны только последующие вхождения данной буквы.

Актуально

[BDA]

Var
  stroka, otvet: string;
  i, len: integer;
  c: char;

Begin
  Write('Input string ');
  Readln(stroka);
  otvet := stroka;
  len := length(stroka);
  i := 1;
  while i <= len do
  begin
    while (i <= len) and (stroka[i] = ' ') do
      inc(i);
    if i <= len then
      c := stroka[i];
    inc(i);
    while (i <= len) and (stroka[i] <> ' ') do
    begin
      if stroka[i] = c then
        otvet[i] := '.';
      inc(i);
    end;
  end;
  Writeln(otvet);
  Readln;
End.

[H4t]

Сообщение от BDA

Большое спасибо. Цикл однако сложноват оказался )

[Virtson]

function NewDotStr(const str: string): string;
var
  i, l: Integer;
  chr, nch: char;
begin
  Result := ' ' + str;
  l := Length(Result);

  nch := #0;
  for i := 2 to l do
  begin
    chr := Result[i];
    if Result[i-1] = ' '
      then nch := chr
      else if chr = nch
        then chr := '.';
    Result[i-1] := chr;
  end;
  SetLength(Result, l-1);
end;

***
в 'чистом' Pascal писать в Result нельзя, потребуется переменная otvet.