Guia 3 - EJ15

program G03EJ15;
var
  arch1:text;
  letra1,letra2:char;
  ContI,ContP:integer;

begin
  ContI:=0;ContP:=0;letra2:='a';
  assign(arch1,'texto15.txt');reset(arch1);
  write('Ingrese una letra: ');readln(letra1);
  upcase(letra1);
  while letra2<>'.' do
  begin
    read(arch1,letra2);
    upcase(letra2);
    if letra1=letra2 then
      contI:=contI+1
    else
      begin
        repeat
          read(arch1,letra2);
          upcase(letra2);
        until (letra2=letra1) or (letra2=' ') or (letra2='.');
        if letra1=letra2 then
          ContP:=contP+1;
      end;
  end;
  writeln('Hay ',contI,' palabras que inician con la letra ',letra1);
  writeln('Hay ',contP,' palabras que contienen la letra ',letra1);
  readln();
end.