Question

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

Answer 1

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.



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

35211f4fa406d8b104814b0e1cf65a64.txt