Pascal/Turbo Pascal - evitar la discriminacion de Mayúsculas/minúsculas

Hola,necesito hacer una comparación entre strings(que forman un registro) y quiero q le de = que sean mayúsculas o minúsculas. No se como hacer dicho procedimiento o si hay alguno ya pedefinido x Pascal (GNU pascal).

Gracias anticipadas...

Asi a bote pronto se me ocurre que podrias convertir las cadenas a mayusculas con el comando upcase y asi te olvidas de lios de mayusculas / minusculas. Te dejo un ejempo:

cadenamayusculas := upcase(cadenacualquiera);

con el gnu pascal (extended iso 10206) no puedo aplicar esa funcion

prueba con poner justo debajo del program X;
Uses crt, dos;

puede k ahora la función upcase ya funcione

Entre una ayuda de aquí y otra de allá, aquíesta la solución (creo que funciona bien):

PROCEDURE mayusculas (var cadena: string);
VAR i:integer ;
BEGIN
for i:=1 to length(cadena) do
BEGIN
if (ord(cadena[i]) >= ord('a')) and (ord(cadena[i]) <= ord('z'))
then cadena[i]:= chr(ord(cadena[i]) - ord('a') + ord('A'));
END;
writeln(' ',pasado a mayusculas');
END;