Pascal/Turbo Pascal - Para pasar a mayúsculas una cadena

Me encontré por el foro este programa que (supuestamente) pasa a mayúsculas una cadena pero hay algo que falla, ¿qué es mid(cadena,i,1);?. Turbo Pascal 7.0 no me lo interpreta.

program mayusculas;
uses crt;
var
cad: string;
function mayus (cadena: string): string;
var
nueva: string;
car: char;
i: byte;
begin
nueva:='';
for i:=1 to length(cadena) DO
begin
car:=mid(cadena,i,1);
nueva:= nueva + car
end;
mayus:= nueva
end

{y para llamarla solo escribe esto:

Ejemplo:}
BEGIN
write("Cual es tu nombre: ");
read(nombre);
nombre:=mayus(nombre)
readln;
END.

No funciona nada mas que para el caso base. :(

program mayusculas;
uses crt;
var
cad: string;
function mayus (cadena: string): string;
var
a: integer;
begin
if length(cadena)=1 THEN
mayus:=upcase(cadena[1])
ELSE
mayus:= mayus (cadena)
end;

{y para llamarla solo escribe esto:

Ejemplo:}
BEGIN
clrscr;
write ('Cual es tu nombre: ');
read (cad);
Writeln (mayus(cad));
readkey;
END.

program mayusculas;
uses crt;
var
cad: string;
procedure mayus (cadena: string);
var
a: integer;
begin
for a:=1 to length(cadena) do
begin
write (upcase(cadena[a]));
end
end;

{y para llamarla solo escribe esto:

Ejemplo:}
BEGIN
clrscr;
write (\'Cual es tu nombre: \');
read (cad);
mayus(cad);
readkey;
END.

Este si funciona pero si alguien lo hiciera de forma recursiva estaría muy agradecido. Saludos.

Veamos:

Function UpStr(St :String) :String;
Begin
If (Length(St)=0) then
UpStr := ''
Else
UpStr := UpStr(Copy(St, 1, Length(St)-1) + UpCase(St[Length(St)]);
End; {UpStr}

Saludos ;-)

escribe este programa que si sirve lo acabo de correr en turbo pascal