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