Leer caracteres en FreePascal

Cuestiones y dudas acerca de lenguajes de programación diversos.

Moderador: Moderadores

nahuel132
Novat@
Mensajes: 1
Registrado: Mar Abr 08, 2014 1:20 am

Leer caracteres en FreePascal

Mensaje por nahuel132 » Mar Abr 08, 2014 1:31 am

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.