изменения цвета экраны для пошагового введения фамилии, имени, школы и класса Делфи 7

[программирование]

добрый вечер, уважаемые программисты и студенты помогите, пожалуйста, дописать программу на Делфи 7.

вот задание:
организовать изменение цвета экрана для пошагового введения текстовой информации - фамилия, имя, школа и класс с помощью собственной подпрограммы COLOR_PAGE. для выбора номера цвета экрана воспользоваться генератором случайных чисел (random).

вот кусок кода:

Program Example_9; 
Uses; {Підключення бібліотеки} 
Procedure Solution (S:string; var R:string); 
Begin 
textbackg(Random(14)+1); 
clrscr; 
tecolor(Random(14)+1); 
gotox(20,10); 
writeln('Введіть ',S); 
gotoy(20,11); 
readln(R); 
End; 
Var A:string; 
Begin 
Solution(В,'своє прізвище',A); 
Solution('своє ім"я',С,A); 
Solution('школу, де Ви навчаєтесь', 'A'); 
Solution('свій клас',A); 
Readkey; 
End.

заранее огромное спасибо всем за помощь.

[Stilet]

Procedure Solution (S:string; var R:string); 
var display:THandle; ps:COORD;
Begin 
 display = GetStdHandle(STD_OUTPUT_HANDLE);
 SetConsoleTextAttribute(display,Random(14)+1);
 ps.x:=20; ps.y:=10;SetConsoleCursorPosition(display,pos); 
 writeln('Введіть ',S); 

 ps.x:=20; ps.y:=11;SetConsoleCursorPosition(display,pos);
 readln(R); 
End;

Проде ниче не упустил...

[программирование]

можно сделать так

Program Example_9; 
Uses; {Підключення бібліотеки} 
Procedure Solution (S:string; var R:string); 
Begin 
textbackg(Random(14)+1); 
clrscr; 
tecolor(Random(14)+1); 
gotox(20,10); 
writeln('Введіть ',S); 
gotoy(20,11); 
readln(R); 
End; 
Var A:string; 
Begin 
Solution(В,'своє прізвище',A); 
Solution('своє ім"я',С,A); 
Solution('школу, де Ви навчаєтесь', 'A'); 
Solution('свій клас',A); 
Readkey;
Procedure Solution (S:string; var R:string); 
var display:THandle; ps:COORD;
Begin 
 display = GetStdHandle(STD_OUTPUT_HANDLE);
 SetConsoleTextAttribute(display,Random(14)+1);
 ps.x:=20; ps.y:=10;SetConsoleCursorPosition(display,pos); 
 writeln('Введіть ',S); 

 ps.x:=20; ps.y:=11;SetConsoleCursorPosition(display,pos);
 readln(R); 
End; 
End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.