индекс находился вне границ массива

[Vantus]

Вот поделка

uses crt;
var f:text; s:string; i,j,k:integer; 
begin 
assign (f,'C:\Users\admin\Desktop\прога.txt');
reset(f); 
readln(f,s);
s:=s+' '; 
j:=1;
k:=0; 
if s[1] = ' ' then while s[1] = ' ' do delete(s,1,1); 
while not eof(f) do
for i:=2 to length(s) do 
if (s[i] = ' ') then if (s[j]=s[i-1]) and not (s[j] = ' ') then begin
                                                           k:=k+1;
                                                           j:=i+1;
                                                           end 
                                                           else 
                                                           j:=i+1;
writeln('Количество слов = ',k); 
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

подозреваю, что при удалении начальных пробелов строка может стать пустой, а идёт обращение к S[1]...

может быть, такой код устроит:

var s:string;
  i,count:integer;
begin
 s:='  Hello   my  world';
 i:=1;
 while (i<=length(s)) and (s[i]=' ') do Inc(i);
 if i<=Length(s)
    then  count:=1
    else  count:=0;
 Inc(i);
 while (i<=length(s)) do begin
   if (s[i-1]=' ') and (s[i]<>' ') then inc(count);
   inc(i);
 end;
 WriteLn('Количество слов: ', count);
end.

[Vantus]

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