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.

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!