Tugas Algoritma Pemrograman no. 1

Tugas Algoritma. tolong dicoba di cek lagi
Ini menurut versi saya. mohon kritik dan sarannya ajha..
Terima Kasih


Program Biodata_Kita;
Uses    crt;
Var
   F            : text;
   C            : char;
Begin
     clrscr;
     assign(F,' RiwayatHidup.txt');
     rewrite(F);
     writeln    ( F,' Biodata Saya      : ');
     writeln    ( F,' Nama      : Nama Anda');
     writeln    ( F,' N.P.M     : 10700 ');
     writeln    ( F,' Pekerjaan : Mahasiswa ');
     writeln    ( F,' Prodi     : Teknik Infomatika ');
     close( F);

     assign ( F,'RiwayatHidup.txt');
     reset(F);
     while not eof ( F ) do
           Begin
                read ( F,c);
                write(c);
           end;
     close ( F );
     readln;
End.