Повторение команд работы с текстом в среде программирования PascalABC. Net и самостоятельный набор первой программы

Внимание, в данном программном продукте приведены тексты двух отдельных файлов, причем файл с

расширением pas опирается на файл с расширением txt, поэтому сохраните их отдельно с указанными именами и расширениями и разместите в одной папке.

bl-1_z-2.pas

uses crt;

var f:text;

i:integer;

stp,stc:string;

nabor: array [1..9] of string;

begin

textbackground(2);

clrscr;

textcolor(1);

gotoxy(24,1);

write('Привет! Мой маленький ДРУГ!!!');

textcolor(14);

gotoxy(14,2);

write('Hадеюсь, что тебе было интересно в прошлый раз.');

gotoxy(10,3);

write('И ты дома выучил новые слова. Проверь, хорошо ли ты их знаешь');

gotoxy(2,4);

textcolor(15);

write('Hабери слова, которые обозначают: (не помнишь слов - открой тетрадь и посмотри)');

assign(f,'bl-1_z-2.txt');

reset(f);

for i:=1 to 9 do

begin

readln(f,stp);

readln(f,stc);

textcolor(1);

gotoxy(2,3+i*2);

write(stp);

textcolor(14);

repeat

gotoxy(2,4+i*2);

readln(nabor[i]);

if nabor[i]=stc

then

begin

gotoxy(40,4+i*2);

textcolor(15);

write(nabor[i]);

end

else

begin

textcolor(2);

gotoxy(2,4+i*2);

write(nabor[i]);

textcolor(5);

end;

until nabor[i]=stc;

end;

close(f);

gotoxy(2,5+i*2);

write('Молодец!!! Перепиши в тетрадь с экрана программу написанную белыми буквами');

gotoxy(2,6+i*2);

write('Нажми любую клавишу для перехода на новую страницу');

readkey;

clrscr;

gotoxy(2,1+i*2);

write('ЗАПИШИ И ЗАПОМНИ: Для создания нового файла:');

gotoxy(2,2+i*2);

write('Ctrl - N - Enter - Сохранить как - Напиши имя программы: bl-1_z-2)');

gotoxy(2,3+i*2);

write('Ctrl+S-Enter');

gotoxy(2,4+i*2);

write('Набери с клавиатуры текст программы, записанной в тетрадь.');

gotoxy(2,5+i*2);

write('При наборе текста программы каждые 5 мин нажимай: Ctrl+S - для сохранения');

gotoxy(2,6+i*2);

write('Shift+F9 - запуск программы.');

readkey;

end.

bl-1_z-2.txt

подключение текстового модуля

uses crt;

начало программы

begin

выбрать цвет фона: синий - 1

textbackground(1);

очистить экран (залив его выбранным цветом фона)

clrscr;

выбрать цвет символов: голубой - 11

textcolor(11);

координаты текста:2,15-от верхнего левого угла экрана вправо 2, вниз 15

gotoxy(2,15);

вывести на экран текст Ура! Все получается верно!!!

write('Ура! Все получается верно!!!');

команда ожидания нажатия на любую клавишу (читать клавишу)

readkey;

конец программы

end.