Паскаль. Ошибка: Индекс находился вне границ массива.
Выполняю задачу на счёт слов из двух букв.
Сама программа:
program ss;
var s:string;
var i,k:integer;
begin
k:=0;
readln(s);
s:=s+' ';
repeat i:=pos(' ',s);
if i>1
then if (s[i+1]<>' ') and (s[i+2]<>' ') and (s[i+3]=' ')
then k:=k+1;
delete (s,1,i)
until s=' ';
writeln(k, 'slov');
readln;
end.