Trying to do formatting program, need HELP!

HELP, because I really need it Im trying to do a simple floppy-disk
formatting program in Turbo Pascal 6.0. But I cant figure out how Her is
the scenario for the program. Please answer with e-mail to t...@home.se.

* I start the compiled exe-file.
* The computer BEEP, and writhe a text asking me to but in a 1.44 disk in
A:
* I put the disk in A: and hit ENTER.
* The program formats my floppy disk.
* When its done it BEEP. Write a text asking me to but in a new floppy
disk and hit ENTER or hit ESC. If I hit ESC the program will END.
But if I hit ENTER the program will do the same procedure again.

I sure hope some on can help me.
Please answer with e-mail to t...@home.se.

Greetings Mathias Persson, t...@home.se