Pascal/Turbo Pascal - duda

HOLA:
Me pueden ayudar con este ejercicio

Realizar un módulo que lea una secuencia de caracteres blancos. Cuando viene un blanco no debe leer más y devuelve el último carácter leído.

Me remito a este mismo foro usa el buscador , mira a ver si te vale esto:

http://www.lawebdelprogramador.com/news/mostrar_new.php?id=69&texto=Pascal/Turbo+Pascal&n1=400106&n2=0&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0

function Leer : char;
var
aux,car : char;
begin
aux:='#'; {caracter basura}
repeat
car:=aux;
readln(aux);
until(aux = ' '); {hasta leer el caracter blanco}
Leer:=car;
end;

begin
write('La letra leida es: ',Leer);
readln;
end.

Hola Juan, lo que hace este programa es llamar a la función Leer, que repite la lectura de caracteres hasta leer un blanco. Si lo primero que se lee es un blanco, entonces devuelve '#', caso contrario devuelve el último caracter leido.

Saludos!