Как сделать программу в pascalABC которая бы считала количество определённых слов в тексте?

разбей текст на отдельные слова а потом ищи заданное слово, если оно там есть

1.Записываешь символы текста до пробела в переменную типа строка.
2.Затем сравниваешь это записанное слово с нужным.
3.При совпадении просто увеличиваешь целочисленную переменную на один
4.Считываешь следующую последовательность символов до пробела
и опять с 1го

Нихера. Берешь слово. Его длину. Сравниваешь это с куском текста. Если совпадает n ++.Если нет . То берешь следующий кусок текста. Смещая начало куска на 1 символ. Так не придется пробелы искать

Нихера. Берешь слово. Его длину. Сравниваешь это с куском текста. Если совпадает n ++.Если нет . То берешь следующий кусок текста. Смещая начало куска на 1 символ. Так не придется пробелы искать

Нихера. Берешь слово. Его длину. Сравниваешь это с куском текста. Если совпадает n ++.Если нет . То берешь следующий кусок текста. Смещая начало куска на 1 символ. Так не придется пробелы искать

разбей текст на отдельные слова а потом ищи заданное слово, если оно там есть

Нихера. Берешь слово. Его длину. Сравниваешь это с куском текста. Если совпадает n ++.Если нет . То берешь следующий кусок текста. Смещая начало куска на 1 символ. Так не придется пробелы искать

пиши на современных языках! =)

Вот пример, там все понятно вроде
var
s: string;
solo, i: integer;
begin
readln(s);
solo:= 0;
for i := 1 to length(s)do
begin
if s[i]='a' then inc(solo);
end;
writeln('a=', solo);
writeln(s);
end.