Uses Crt;

Var
 A: String;
 DosyaAdi: Text;

Begin
 ClrScr;
 Assign(DosyaAdi,'C:\TEMP\Test.Tmp');
 ReWrite(DosyaAdi);

 Repeat;
  A:=(Chr(Random(256-32)+32));
  Write(A);
  Write(DosyaAdi,Chr(Random(256-32)+32));
 Until KeyPressed;

Close(DosyaAdi);

End.