Pascal. дан текстовый файл содержащий несколько строк. вывести на экран содержимое файла. если в выводимой строке содержится слово "яблоко" - вывести напротив нее цифру 1, если слово "фрукт" - цифру 2.

Var
   f:text;
   S:string;
   C:char;
   i:integer;
Begin
Assign(f,'TextFile.txt');
Reset(f);
i:=1;
Repeat
While Not EOLN(f) do
   Begin
   Read(f,C);
   S:=S+C;
   End;
Write(S);
if Pos('яблоко',LowerCase(S))<>0 then Write(' 1');
if Pos('фрукт',LowerCase(S))<>0 then Write(' 2');
S:='';
if Not EOF(f) then
   Begin
   Read(f,C);
   Write(C);
   End;
Until EOF(f);
Close(f);
End.

Примечание: для работы программы необходимо, чтобы данный файл находился в одной папке с программой:

Значение компьютера в современной жизни 
      Компьютер, или электронно-вычислительная машина, в нашей жизни занимает все большее место. С его можно напечатать текст или произвести математические вычисления, составить расписание движения поездов и управлять технологическим процессом на заводе, изучать иностранные языки и руководить полетом космической станции, вести бухгалтерские расчеты и планировать бюджет страны, общаться с людьми, находящимися в любой точке земного шара, и вести тончайшие хирургические операции, послать письмо другу и сделать фотографию. 
      Я могла бы еще долго перечислять возможности современных компьютеров. Но и из этого перечня ясно, что развитие современных технологий, управление экономикой и производством, образование и медицина, наука и космос сегодня немыслимы без компьютера. 

На данный момент компьютер имеет важную роль в жизни каждого человека . Но у него есть и плюсы и минусы . Плюсы состоят в том что ,с компьютера мы можем найти нужную нам информацию в интернете ,мы можем общаться с людьми ,можем играть ,развлекаться, смотреть смешые ролики ,писать научные работы , развиваться .Минусы состоят в том что ,компьютер не очень то и хорошо действует на организм человека .Если слишком долго проводить свое время у компьютера ,то ваше зрение будет по тихоньку портится .Порой резко может заболеть голова . Появляется зависимость ,которая плохо влият на человека ,отнимает массу свободного времени . Я провожу у компьютера мало времени,только на все самое нужное .Я считаю это важным открытием для человечества .Главное соблюдать правила ,и проводить определенное колличество времени около него.