Dear ALL,

Could you tell me what is wrong of my program? The problem is the following wording are often restart: "PLEASE RUN THIS PROGRAM IN A MAXIMUM WINDOW..., TONY YEUNG PRESENT...

How can I add some music for it? How can I change the colour of the font and display into screen?

[code]

Program yeungkt2;
{$APPTYPE CONSOLE}
{
IT113 Assignment - Who wants to be a student millionaire.
Author: Tony Yeung
Date: 16 October 2009
Version 2.03
}
uses
SysUtils,OurCrt;
Type
hotSeat_record=record
lastname :string[12];
firstname :string[12];
address :string[25];
End;

//***** USED VARIABLES **
Var User_Choice :Integer; //global variable
hotSeat_file :file of hotSeat_record;
hotSeat :array[1..100]of hotSeat_record;
numberRecords :integer;
numbers :array[1..6] of integer;
generate :boolean;
ONE :hotSeat_record;
//**** PROCEDURE LOAD ****
Procedure load;
Var
count:integer;
begin
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln(' PLEASE RUN THIS PROGRAM IN A MAXIMIZED WINDOW');
writeln;
writeln(' PRESS <ENTER> TO CONTINUE');
readln;
clrscr;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln(' T');
sleep(200);
clrscr;
writeln(' TO');
sleep(200);
clrscr;
writeln(' TON');
sleep(200);
clrscr;
writeln(' TONY');
sleep(200);
clrscr;
writeln(' TONY ');
sleep(200);
clrscr;
writeln(' TONY Y');
sleep(200);
clrscr;
writeln(' TONY YE');
sleep(200);
clrscr;
writeln(' TONY YEU');
sleep(200);
clrscr;
writeln(' TONY YEUN');
sleep(200);
clrscr;
writeln(' TONY YEUNG');
sleep(200);
clrscr;
writeln(' TONY YEUNG ');
sleep(200);
clrscr;
writeln(' TONY YEUNG P');
sleep(200);
clrscr;
writeln(' TONY YEUNG PR');
sleep(200);
clrscr;
writeln(' TONY YEUNG PRE');
sleep(200);
clrscr;
writeln(' TONY YEUNG PRES');
sleep(200);
clrscr;
writeln(' TONY YEUNG PRESE');
sleep(200);
clrscr;
writeln(' TONY YEUNG PRESEN');
sleep(200);
clrscr; ...

Dear ALL,

Could you tell me how can I write a program that writes to a text file, the 32 people that are in our hotSeat.txt file.

Cheers,

turbomen

(p.s.: 'the question orginally ask me to write a program that writes to a text file, the 32 people that are in our hotSeat.dat file' but it is not possible for me to upload the .dat file to here. So, I have make changes of the .dat file to *.txt file before upload it.)

Dear All,

Could you tell me how can I read from the hotseat.txt file all the records and sort by first name. Finally, list the sorted results on the screen.

Cheers,

turbomen