SoloCodigo

hola que tal, me mandaro hacer en la facultad este ejercicio: "Dado un texto terminado en "/" averiguar que cantidad de letras tiene la palara mas larga,  suponer que nunca sucede que la primera letra del texto es "/"

program palabramayor;

  uses crt;
  var
       cant,max: integer;
       txt: string;
       i:integer;

  begin
    clrscr;
  write('ingrese una frase terminada en /: ');
  readln(txt);
  i:=0;
  while txt<>'/' do
  begin
        if txt <> ' ' then
        begin
               cant:=cant+1;
        end
        else
        begin
               cant:=0;
        end;
        if cant>max then
        begin
               max:=cant;
       i:=i+1;
       end;
       end;

  writeln('la palabra mas larga del texto es de: ',cant);

  readkey;
  end.

Lo hago asi, nose me parece que esta bien, lo compilo y o me tira errores, pero cuando lo ejecuto ingreso la frace y se queda ahi sin hacer nada..... espero que me puedan ayudar, ya me tiene podrido este programa. ... nos vemos GRACIAS

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.