--AUTOR: Jose Luis VILLARIG GARCIA (V2975813) 472542@cepsz.unizar.es
--PROYECTO: Practicas de Intr. Programación 99/00. Práctica3-Ej.2.1.2 d)
--FICHERO: mayusc.adb
--FECHA: Noviembre 1999
--Modidicado por:
--Fecha modificacion:
--Descripcion: Este procedimiento, dados dos strings devuelve en el segundo
--el resultado de pasar a mayusc el primero.

-- cadena1 : in string
-- cadena2 : out string
-- Pre: ambas de tamaño fijo y de igual longitud
-- Post: cadena2 contiene lo mismo que cadena1 pero en mayusculas
-- OBSERVACIONES: Cualquier letra que no este en 'a'..'z' se pone en cadena2
-- tal cual
---------------------------------------------------------
procedure mayusc (cadena1: in string; cadena2 : out string) is
i : integer;
begin
   i := 1;
   while i <= cadena1'LENGTH loop
      if cadena1(i) in 'a'..'z' then
         cadena2(i) := character'val (character'pos(cadena1(i)) +
                       character'pos ('A') - character'pos('a'));
      else
         cadena2(i) := cadena1(i);
      i := i + 1;
   end loop;
end mayusc;