Замена букв в файле. Опции

[Nutcase]

Имеется файл, элементами которого являются отдельные слова. Если слово в файле начинается на букву 'k', то заменить ее на 'K'.
Знаю, что для того чтобы заменить ВСЕ 'k' буквы в файле, программа будет выглядеть примерно так:

var f:file of char;
s:char;
i:integer;
begin
assign (f, 'c:\a.txt');
reset (f);
while (not EoF) do
 begin
 read (f,s);
 if (s='k') then s:='K';
 seek(f, filepos(f)-1);
 write(f,s);
 end;
 close(f);
 end.

а вот что исправить, чтобы заменялось только если буква находится в начале слова?
Спасибо.

Сообщение отредактировано: volvo - 2.11.2006 18:52

[klem4]

Работает говоришь безотказно ? Хм, а как ты мне объяснишь вот такую запись :

mas[i][j]

при таком описании

mas:array [1..max] of string;

Ну это уже так на сладкое, а вообще твоя программа не прошла ни один тест.

var
   s : string;
   w : array[1..100] of string;
   i,j  : byte;

begin
   ...
   reset(f);
   i := 0;
   while not(eof(f)) do begin
      readln(f, s);
      inc(i);
      if (s[1] in ['k','K']) then w[i] := s[1] else w[i] := s;
   end;
   rewrite(f);
   for j := 1 to i do writeln(f, w[j]);
   close(f);
end.

Сообщение отредактировано: volvo - 2.11.2006 18:53

[APAL]

Работает говоришь безотказно ? Хм, а как ты мне объяснишь вот такую запись :

mas[ i ][j]

при таком описании

mas:array [1..max] of string;

mas[ i ][j]
А что тебя смущает в такой записи?
Идет обращение к j-ому символу в строке i