строки в паскаль

[bpystep]

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

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

program Lab_7_Var_3_chast_2;
uses crt;
const n = 100;
var s:string[n];
    a:array[1..n] of string;
    t:array[1..n] of integer;
    i,j:integer;
begin
ReadLn(s);
for i:= 1 to length(s) do
begin
      a[i]:=s[i];
end;

for i:= 1 to length(s) do
begin
     if(a[i] = ' ') then
             begin
                  t[j] := i;
                  write(t[j]);
                  j:=j+1;
             end;
end;

end.

но паскаль выдает мне ошибку, не могу понять почему...
ошибка:
Выход за границы диапозона изменения индекса 1..100 (строка 19)

[filvika]

задай n больше, либо массив t сделай динамическим (если точно не известна длина предложения)

[Son Of Pain]

Ошибка выдается потому что у тебя не инициализируется переменная j/.

[filvika]

Пример решения:

const
//  Максимально допустимое количество слов в строке
    size = 500;
var
    s, temp: string;
    words: array [1..size] of string;
    count, kol,
    i, j: integer;
begin
    s := 'Hello, my nickname is bpystep and I am a student. Bla bla bla';
    writeln(s);
    writeln;

    count := 0;   //  Количество слов в строке
    temp := '';

    // Первым делом формируем массив слов (Words) из входной строки
        for i := 1 to length(s) do
            if s[i] = '.' then
                if temp <> '' then
                begin
                    inc(count);
                    words[count] := temp; // Последнее слово
                    break;  // Выход из цикла (после точки не читаем)
                end
                else break

            else if s[i] in ['A'..'Z', 'a'..'z', 'А'..'я'] // Допустимые символы
                then temp := temp + s[i]

            else if s[i] = ' ' then
                if temp <> '' then
                begin
                    inc(count);
                    words[count] := temp; // Новое слово
                    temp := '';
                end;

    writeln('Всего слов до точки:  ', count);

    //  Теперь работаем с этим массивом слов
    kol := 0;
        for i := 1 to count do
        begin
            temp := words[i]; // Каждое слово
                for j := 1 to length(temp) do
                    if temp[j] = 'a' then
                    begin
                        inc(kol);
                        break;
                    end;
        end;

    writeln;
    writeln('Всего слов с искомой буквой: ', kol);

end.

[bpystep]

Спасибо ребят