SoloCodigo

hola que tal, queria saber en que me estoy equivocando al hacer este programa.... por que lo revise y no se que esta mal, como recien empieso a programar, capas que este haciendo las cosas mal, pero bueno espero que me ayuden.... el enunciado es: crear un programa que al ingresar una frace terminada en "/" me diga la cantidad de letras de la palabra mas larga....

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.

GRACIAS
Diego.

lo puse como me dijiste, pero yo tengo una condicion que es que el siclo se tiene que terminar cuando tenga el caracter "/"..... y eso no puedo hacerlo.... quise poner el codigo asi: pero me tira error.

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.

Lo mismo estaba por decir..

pero tambien estaba por decir una más:

"frase" es con s




Firma:" el obsesivo de la ortografía"

jajaja

Saludos