Pascal/Turbo Pascal - Una dudilla!!!!

Aqui os he adjuntado el codigo para que lo veais, y para que asi me podais responder a mi dudilla:

VAR

nomfi:string[30];
nomfich:text;

------------------------------------------------------------------------------------------------------------------
repeat
writeln('Introduzca el nombre del fichero (tiene un maximo de 30 carcteres):');
readln(nomfi);
until (length(nomfi)<31) and (length(nomfi)>0);

For k:= 1 to Length(nomfi) do
nomfi[k] := UpCase(nomfi[k]);

ASSIGN(nomfich,'c: emplista.txt')
rename(...);
-------------------------------------------------------------------------------------------------------------------

Mi pregunta es como ago para renombrar el fichero con el nombre que me introduce el usuario. Bueno gracias antiocipadas a tod@s.

como hago para hacer un programa escoja tres numeros aleatorios y los muestre