Código:
Program ejemplo;
var
cant,maximot:integer;
letra:char;
begin
cant:=0;
maximot:=0;
Writeln('Inserte los caracteres :' ); Read(letra);
while(letra='')do
read(letra);
while (letra <>'.')do begin
cant:=0 ;
if( letra='t') then begin
cant:=cant+1;
while(letra<>'') or (letra <>'.') do begin
read(letra) ;
cant:=cant+1 ;
end;
if(cant>maximot)then
maximot:=cant;
end;
end;
Writeln('La cantidad de caracteres leidos fue de : ' , cant);
readln;
readln
end.
No se cual es el error...