Pascal/Turbo Pascal - Limitar la longitud de un mensaje.

Tengo que hacer un programa en Pascal, que le permita ingresar al usuario un mensaje que no supere los 140 caracteres y guardarlo en un arreglo.
Hasta ahora logre guardar el mensaje en el arreglo pero no puedo limitar su tamaño y si el usuario se pasa, el programa recorta el mensaje.

Para guardar el mensaje utilizo el siguiente codigo:

i:=1;
While i<=140 Do Begin
Read(mensaje[i]);
i:=i+1
End

Mira primero si estas entrando datos directamente en el array solo entraran la longitud del mismo
o sea
var
texto : array[1..140] of char;
i : integer;

solo podrás entrar 140 caracteres puesto que los otros que entres se perderán pero si la
condición en While es i < 140 no podrán entrar mas por lo tanto donde tienes el problema
no lo veo ano ser que te refieras a si es menor de 140 lo cual no puedes achicar el array
puesto que es fijo .
Yo personal mente haría la entrada así.

var
letras : array[1..140] of char;
texto : string[140];
i : integer;
begin
i := 1;
repeat
tec := readkey; {Entrada de Caracteres}
texto[i] := tec;
texto[0] := chr(i);
gotoxy(10 + i,10);write(texto[i]);
i := i + 1;
if tec = #8 then {Borrado de caracteres con tecla Retroceso}
begin
i := i - 1;
if i < 1 then
i := 1;
texto[i] := ' ';
texto[0] := chr(i);
gotoxy(10 + i,10);write(' ');
end;
until (i > 140) or (tec = #27);
for i := 1 to length(texto) do
letras[i] := texto[i];
end;

Ramon queria darte las gracias, tu sugerencia no soluciono mi problema completamente pero tome prestadas algunas lineas de tu codigo y estoy mas cerca de la solucion.

Me satisface poder haber sido de ayuda.