Здравствуйте! Позарез нужна программа в Паскале, вот условие:
"Разработать программу,
которая осуществляет в текстовом файле поиск заданных слов. Слова
последовательно вводятся с клавиатуры. Для каждого слова должно определяться
количество вхождений и номера строк текста. Если указанное слово в файле
отсутствует, то программа должна выводить соответствующее сообщение."
И если можно, то и блок-схему.
Заранее спасибо!

var
  c: string;
  d: byte;
  b: boolean;

begin
  readln(c);
  foreach a: string in System.IO.File.ReadAllLines(in.txt) do
  begin
    d += 1;
    b := false;
    if (pos(c, a) > 0) then
    begin
      b := true;
      writeln(Вхождение! Строка №, d, . Количество вхождений: , (a.Length - a.Replace(c, ).Length)/c.Length);
    end;
  end;
  writeln(not b ? There aren`t :( : );
end.

Тут получится сухая блок-схема, но длинная... Воть
Не люблю их

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.