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

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

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

bl-1_z-1.pas

uses crt;

var f:text;

i:integer;

stp,stc:string;

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

begin

textbackground(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абирай с клавиатуры слова, написанные латинскими буквами и нажимай ');

assign(f,'bl_1_1.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(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;

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

begin

выбрать цвет фона: зеленый - 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.