Pascal/Turbo Pascal - solo mayusculas

hola amigos quería pedirles el favor q me explicaran como c hace para que mi programita escriba siempre en mayúsculas
debe ser algo muy simple muchas gracias

En Turbo Pascal:

function UpperCase(S: string): string;
var
i: byte;
begin
for i:=1 to Length(S) do
S[i]:=UpCase(S[i]);
UpperCase:=S;
end;

y se usa así:

WriteLn(UpperCase('Diego Romero'));

cuya salida será:

DIEGO ROMERO

Nota: no funciona con vocales acentuadas y la ñ.