Задан текстовый файл с произвольным именем. а, сколько слов содержит этот файл. все слова разделены пробелами, не обязательно одиночными. найдите все слова максимальной длины. решать в pascalabc.net, полное решение, . желательно попроще, без лишних функций.

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var fn := ReadlnString('Введите имя файла:');

 if not FileExists(fn) then

 begin

   Print('Файл не найден');

   exit

 end;

 var a := ReadAllText(fn).ToWords; // массив слов

 Println('Количество слов в файле:', a.Length);

 var lmax := a.Select(w -> w.Length).Max;

 Println('Перечень слов с максимальной длиной');

 a.Where(w -> w.Length = lmax).Println

end.

Во втором вложении дается тестовый файл Pushkin2.txt

Линейка - для измерения линейных размеров (длин, расстояний)
транспортир - для измерения плоских углов
термометр - для измерения температуры
барометр - для измерения давления
компас - для ориентирования по сторонам света (по азимуту) и для измерения азимутальных углов
телескоп - для наблюдения за макромиром, то есть за большими телами - небесной сферой (за звёздами, планетами и др., то есть за космосом)
микроскоп - для наблюдения за микромиром (то есть за маленькими телами)

курвиметр - для измерения длин криволинейных линий
динамомерт - для измерения сил
весы - для измерения массы
часы - для измерения времени

ответ по конкретной задаче:
4 цветов можно закодировать 3 битами (100 = 4 )

Значит для изображения размером 320х200 в котором будет 64000 пикселя, нужно будет 64000пикселя*3бита = 192000 бит

"Nelle987 почему именно тремя битами надо кодировать 4 цвета? Кто мешает их кодировать как 00, 01, 10, 11?"
00 - может быть пустым пикселем. Отсутствие любого цвета из 4. Задание изначально спорное, чтобы вы не говорили, т.к. речь может идти о 4х цветах конкретных или о 4х цветах и их отсутствие. Ибо как записать тогда "пустое" изображение n x n пикселей? В случае с градациями цвета, то там может быть значение 0...255, как наиболее распространённый случай, если конечно не любители извращаться с другими палитрами (что явно уже не школьный курс, и противоречит правилам сервиса, т.к RGB палитра это легче для восприятия, и еще может изучаться в школе). Но это другая история.
И тут 0 будет указывать на градацию цвета, а не на его отсутствие.
Но специально для вас (видимо вам понравилось отправлять это задание на переделку) решу для 2х бит:
64000пикселя*2бита=128000бит.

В комментариях признаю ошибку, спутал количество фильтров(4) и кол-во палитр (3) для RGB, который я думаю целесообразно рассматривать в данном случае в примере, не смотря на наличие таких замечательных как RGBA и CMYK.
Отредактировать ответ не смог, т.к. истек срок. Комментарии можно удалить.