Команды языка программирования PascalABC.NET для работы с текстом

Внимание, в данном программном продукте приведены тексты двух отдельных файлов, причем файл с
расширением pas опирается на файл с расширением txt, поэтому сохраните их отдельно с указанными именами и расширениями и разместите в одной папке.
bl-1_z-1.pasuses crt;
var f:text;
i:integer;
stp,stc:string;
nabor: array [1..9] of string;
begintextbackground(2);
clrscr;
textcolor(4);
gotoxy(24,1);
write('Привет! Мой маленький ДРУГ! Меня зовут ПК!');textcolor(14);
gotoxy(4,2);
write('Сегодня ты узнаешь о том, что записывая специальные команды - операторы.');gotoxy(8,3);
write('ты сможешь давать мне команды для работы с текстом!');
gotoxy(2,4);
textcolor(15);
write('Hабирай с клавиатуры слова, написанные латинскими буквами и нажимай <ENTER>');
assign(f,'bl_1_1.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(11);
gotoxy(2,4+i*2);
write(nabor[i]);
textcolor(5);
end;
until nabor[i]=stc;
end;
close(f);
gotoxy(2,5+i*2);
write('Молодец! Запиши в тетрадь тему урока: "Команды языка программирования PascalABC.NET для работы с текстом"');
gotoxy(2,6+i*2);
write('Перепиши в тетрадь с экрана слова, написанные синими буквами');
gotoxy(2,7+i*2);
write('Выучи дома все, что записано в тетради на этом уроке. До новых встреч!');readkey;
end.
bl_1_1.txt
подключение текстового модуля: uses crt;
uses crt;
начало программы: beginbeginвыбрать цвет фона: зеленый - 2: textbackground(2);
textbackground(2);
очистить экран (залив его выбранным цветом фона): clrscr;
clrscr;
выбрать цвет символов: лиловый - 5: textcolor(5);
textcolor(5);
координаты текста:4,5: gotoxy(4,5);
gotoxy(4,5);
вывести на экран текст Здравствуй, ПК!: write('Здравствуй, ПК!');
write('Здравствуй, ПК!');
команда ожидания нажатия на любую клавишу (читать клавишу): readkey;
readkey;
конец программы: end.
end.