Pascal/Turbo Pascal - Como guardar informacion de texto en el disco ?

necesito saber como hacer un programa que escribas algo y te almacene lo que escribiste en forma de texto... desde ya gracias....

Facil:

var
Arch: Text;
S: string;
begin
Write('Ingrese una cadena de texto: ');
ReadLn(S);
assign(Arch,'texto.txt');
Rewrite(Arch);
WriteLn(Arch,S);
Close(Arch);
end.