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