Строки

[honest]

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

Вот мой набросок. Что-то здесь не так...

var x: string;
k: char;
i: integer;
begin
writeln('vvtlite stroky x=');
readln(x);
i:=1;
k:='.';
while i<=length(x) do
begin
if x[i]=x[1] then x[i]:=k;
i:=i+1;
end;
writeln(x);
readln
end.

[Sazary]

Начальное значение i должно быть равно 2.
Только вот ваш код для одного слова.

Вот:

uses crt;
var x: string;
k: char;
i,j: integer;
begin
clrscr;
writeln('vvtlite stroky x=');
readln(x);
i:=2;
k:='.';
j := 1;
while i<=length(x) do
begin
if x[i]=x[j] then x[i]:=k;
if x[i]=' ' then
 begin
 j := i+1;
 inc(i);
 end;
i:=i+1;
end;
writeln(x);
readln;
end.

[honest]

БОЛЬШОЕ СПАСИБО