Вот мой модуль
CRT http://www.boolean.name/attachment.p...1&d=1169729847 , который реализует аналог
ClrScr,
Write,
Writeln (только вместо вывода
через запятую строк и переменных надо выводить их
через плюс и первой в списке всегда должна выводиться строка, т.е. вместо
writeln('число=',x) надо писать
writeln('число='+х). Для ожидания нажатия клавиши (аналог последнего
readln в твоем коде) тоже есть функция в моем модуле
WaitAnyKey. Хуже с аналогом
readln для ввода значений: проще всего открыть окно текстового ввода и ввести там нужное количество строк, а потом результирующую строку (получится одна) уже разбить на массив значений... Если сделаешь ввод - других изменений в твой код делать не придется, только вначале добавишь
Uses CRT. Другого не предложу...