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

Внимание, в данном программном продукте приведены тексты двух отдельных файлов, причем файл с
расширением pas опирается на файл с расширением txt, поэтому сохраните их отдельно с указанными именами и расширениями и разместите в одной папке.
bl-1_z-2.pasuses crt;
var f:text;
i:integer;
stp,stc:string;
nabor: array [1..9] of string;
begintextbackground(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
beginreadln(f,stp);
readln(f,stc);
textcolor(1);
gotoxy(2,3+i*2);
write(stp);
textcolor(14);
repeatgotoxy(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.