Pascal/Turbo Pascal - convertir to a mayúsculas

A:=UpCase(B);

if A = B then

begin

Case B of

'á:':A:='Á';

'é:A:='É';

{ y así }

end; { case }

end; { if }

i:=0;

while letra<>ArregloMin[i] and i<CantCarEnArreglo do

inc(i)

if letra=ArregloMin[i] then

   letra=ArregloMay[i]

else

    {no es letra}

end

Una manera más elegante y rápida de hacerlo es restarle 32 al código ASCII por ej.

Y creo que es lo más fácil

if letra in ['a',b','c',...,'z','á','é,'í',...'ñ','ü'] then

   letra=chr(ord(letra-32);

end

program mayus;

uses

crt;

var

cadena1,d1:string;

procedure entrada(var cadena:string);

begin

writeln('escriba  una cadena');

readln(cadena);

end;

procedure cambiar(cadena:string;var d:string);

var

e:string;

i:integer;

begin

d:=' ';

for i:=1 to length(cadena) do

begin

if cadena[i]<>''  then

e:=chr(ord(cadena[i])-32);

d:=d+e;

end;

writeln('la cadena nueva es: ',d,' ');

end;

begin {principal}

clrscr;

entrada(cadena1);

cambiar(cadena1,d1);

readkey;

end.

{O con esta variante}

program mayus;

uses

crt;

var

cadena1,d1:string;

procedure entrada(var cadena:string);

begin

writeln('escriba  una cadena');

readln(cadena);

end;

procedure cambiar(cadena:string;var d:string);

var

e:string;

i:integer;

begin

d:=' ';

for i:=1 to length(cadena) do

begin

   d[i] := upcase(cadena[i]);

   d[0] := chr(i);

end;

writeln('la cadena nueva es: ',d,' ');

end;

begin {principal}

clrscr;

entrada(cadena1);

cambiar(cadena1,d1);

readkey;

end.