program palabramayor;
uses crt;
var
cant,max: integer;
txt: string;
i:integer;
begin
clrscr;
write('ingrese una frace terminada en /');
readln(txt);
for i:= 1 to 255 do
begin
if txt <> ' ' then
begin
cant:=cant+1;
end
else
cant:=0;
end;
if cant>max then
begin
max:=cant;
end;
write('la palabra mas larga del texto es de: ',cant);
readkey;
end.
for i:= 1 to 255 do
begin
for i:=1 to Length(txt) doEs decir, para i=1 hasta el largo de la cadena.
begin
program palabramayor;
uses crt;
var
cant,max: integer;
txt: string;
i:integer;
begin
clrscr;
write('ingrese una frace terminada en /');
readln(txt);
for i:= 1 to txt= '/' do
begin
if txt <> ' ' then
begin
cant:=cant+1;
end
else
cant:=0;
end;
if cant>max then
begin
max:=cant;
end;
write('la palabra mas larga del texto es de: ',cant);
readkey;
end.