ABCdatos

Hola foreros estoy aprendiendo a programar con FreePascal en la facu pero no se como leer los caracteres alguno me ayudaria?

Yo tengo esto pero no me sirve, solamente lo hace si pongo el punto "." solo, si lo agrego al final de una frase no

program caracteres;
var total: integar; car:char;
begin
total:=0
repeat
readln (car);
total:=total+1;
until (car='.');
writeln (total);
end.