Файлы И Строки Pascal

[Vitt0]

Задание программы заключается в том что бы она cкопировала
из файла F1 в файл F2 все строки, которые не содержат слова, начинающиеся на
заданную букву. И Нашла
самое короткое слово в файле F2.
Сам как не пробовал не смог разобраться, буду благодарен за помощь.

 

[Senset]

Задание программы заключается в том что бы она cкопировала
из файла F1 в файл F2 все строки, которые не содержат слова, начинающиеся на
заданную букву. И Нашла
самое короткое слово в файле F2.
Сам как не пробовал не смог разобраться, буду благодарен за помощь.

1) открываем файл (assign(f,path), reset(f),while not(eof(f)) do begin ........ end)
2) readln(f,s)
3) просматриваем строку (слова разделяются символами)
4) ??????
5) Profit!