program cadenas;
uses
crt;
const
micadena : string = 'Ramiro tenia como un perrito chiguagua que es un leon';
var
letra : char;
enc : string[4];
conca, cade : string;
procedure entradaletra;
begin
write(' Entre Letra : '); repeat
letra := readkey;
until letra in['A'..'Z','a'..'z'];
end;
function cuentapalabras(p : string) : integer;
var
cont, palabras, t, i : integer;
toma : string;
begin
t := 1;
palabras := 0;
cont := 0;
for i := 1 to length(p) do
begin
if p[i] <> ' ' then
begin
toma[t] := p[i];
toma[0] := chr(t);
t := t + 1;
end
else
begin
if upcase(toma[1]) = upcase(letra) then
cont := cont + 1;
t := 1;
palabras := palabras + 1;
end;
end;
if t > 1 then
begin
palabras := palabras + 1;
if upcase(toma[1]) = upcase(letra) then
cont := cont + 1;
end;
cuentapalabras := cont;
end;
procedure concadene4(c : string);
var
l, con, i : integer;
toma : string;
begin
con := 0;
conca := ' ';
conca[0] := chr(1);
l := 1;
for i := 1 to length(c) do
begin
if c[i] > ' ' then
begin
toma[l] := c[i];
toma[0] := chr(l);
l := l + 1;
end
else
begin
if length(toma) = 4 then
begin
insert(toma,conca,length(toma) + 4);
insert(' ',conca,length(conca) + 1); con := con + 1;
end;
l := 1;
end;
end;
if length(toma) = 4 then
begin
con := con + 1;
insert(toma,conca,length(toma) + 4);
insert(' ',conca,length(conca) + 1); end;
writeln(' ',con); end;
procedure aesterisco(s : string);
var
h : integer;
begin
for h := 1 to length(s) do
begin
if s[h] > ' ' then
begin
s[h] := '*';
end
else
s[h] := ' ';
end;
writeln(' ',s); end;
begin
clrscr;
entradaletra;
writeln(micadena);
writeln(' Palabras Con ',letra,' = ',cuentapalabras(micadena)); writeln(' Con 4 Letras'); concadene4(micadena);
writeln(' ',conca); aesterisco(conca);
readkey;
end.
