На фабрике, которая выпускает тюль - ткань, которая состоит из отдельных квадратных амбарчиков, расположенных ровными строками и столбцами, работает отдел из разработки узоров. Для образования узору дизайнер некоторые амбарчики закрашивает полностью, часть амбарчиков закрашивает наполовину, другие оставляет незакрашенными. Оптимальным считается узор, в котором незакрашенных амбарчиков столько же, как всех других вместе. Нужно составить программу для проверки того, является ли узор оптимальным.  Входные данные: в первой строке текстового файла Z2.DAT записаны два целых числа D и S, отделенные пропуском - количество амбарчиков по длине и ширине узору соответственно. В следующих D строках записанные по S чисел: 0, если соответствующий амбарчик пуст, 1 - закрашенная наполовину, 2 - закрашенная полностью. Ни один из размеров узору не превышает 1000.  Выходные даны: в текстовый файл Z2.SOL вывести слово, которое состоит из английских букв: "yes", если узор оптимален, "no" - в другом случае.

что-то вроде того:

написано в дельфи, для паскаля надо будет что-то подправить (как я понимаю TextFile -> Text, AssignFile -> Assign и CloseFile -> Close).
Ну и еще проге все равно, как там располагаются цифрки в файле, главное что первые два - высота/ширина, а все остальные - характеристики, на отдельных они строках или нет, сколько их там в строке для этой программы не имеет значения.

Мне нужно на Паскале!!!!!!!!!!

Тебе же сказали, что надо изменить, чтобы откомпилировалось в Паскале... Привыкли, чтобы выкладывалось все на блюдечке? Будь добр самостоятельно изменить 3 строки и убрать четвертую... Компилятор подскажет, где надо менять!