{Introduccion a la algoritmica y computacion 2012
Practica nº8 Ejercicio:16
Detalles:
Enunciado:Dada una secuencia se desea saber si todas las palabras que posee llevan a como letra inicial
Compilador:Dev-Pascal S.O: Windows xp}

Program ejer19A;
Uses crt;
Const
	Blanco='$';
Type
Tarreglo = array[1..254]of Char;
Tregistro = Record
							sec:Tarreglo; {Declaracion del tipo de secuencia ha utilizar}
							marca:Integer;  {Declaracion de la marca final}
						end;
Var
	lista:Tregistro;
	i:Integer;
Procedure Carga(var lista:Tregistro);
Var
	res:Char;
	i:Integer;
Begin
     i:=0;
     Writeln(' Desea ingresar algun caracter ? s/n ');
     Readln(res);
     clrscr;
     if res = 's' then
     Begin
        Writeln('ACLARACION: El caracter utilizado como blanco sera "$"');
        Repeat
              i:=i+1;
							Writeln('');
              Writeln('Ingrese el caracter:');
              Readln(lista.sec[i]);
              clrscr;
              Writeln('');
              Writeln('Desea Ingresar otro caracter ? s/n');
              Readln(res);
              clrscr;
        Until (res = 'n');
        lista.marca:=i+1 {marca virtual2}
     End;
End;
Procedure SaltarBlanco(lista:Tregistro;Var i:Integer);
Begin
	Writeln('ESTA EN BLANCO');
	While (lista.sec[i]=blanco) or (i=lista.marca) Do
		i:=i+1
end;

Procedure SaltarLetras(lista:Tregistro;Var i:Integer);
Begin
	Writeln('ESTA EN LETRAS');
	While (lista.sec[i]<>blanco) or (i=lista.marca) Do
		i:=i+1
end;

Function TodasA(lista:Tregistro;var i:Integer):Boolean;
Begin
     i:=1;
     If (i=lista.marca)then
     TodasA:=False
     Else
		Writeln('ANTES DEL WHILE');
			Begin
					While (i<lista.marca) and not(lista.sec[i]<>'A')  Do
						Begin
							SaltarLetras(lista,i);
							SaltarBlanco(lista,i);
						end;
			end;
		Writeln('Fuera del mientras de no fin de secuencia y no condicion');
		IF (i<lista.marca)
		Then
			TodasA:=False
		Else
			If (i=lista.marca)
				Then
					TodasA:=True
end;


Begin
	Carga(lista);
	If TodasA(lista,i)=True
	Then
		Writeln('Todas las palabras de la secuencia comienzan con la letra "A"')
	Else
		Writeln('No Todas las palabras de la secuencia comienzan con la letra "A"');
	Writeln('Pulse una tecla para salir');
	Readkey
End.