Pascal/Turbo Pascal - prompt

quiero hacer una especie de prompt (un indicador como D.O.S algo asi '>' ) quiero que eso este cada vez que aprete enter delante de lo que quiero escribir...
algo asi
> wodwoijwd
>ejpejfioejf
>pejeporjeor
se eniende
graciassss

Eh... a ver... si te entiendo bien lo que vos decís es algo así:

var Linea:string;

write('>');readln(linea);

... cada vez que metés el readln tenés que poner el write...

¿Eso es lo que pedís? Si no es, perdón.

Saludos y felices compiladas.

Te mando un ejemplo:

8< ---------------------------------------------
var
s : string;
salir : boolean;
begin
salir := false;
while not salir do
begin
Write('# ');
ReadLn(s);
WriteLn('# s = ', s);
if s = '#' then
salir := true
end
end.

8< ---------------------------------------------

Suerte