program biodata dalam pascal

Berikut ini adalah program biodata yang sederhana sekiranya dapat berguna bagie anda
silahkan di download kalau sekiranya di perlukan :

uses crt;

type

  biodata=array[1..2000] of string;

var

  farihin_lazim,nim_12012684,situbondo,umur:biodata;

  n,i:longint;

  pil:char;

  label lagi;

begin

  lagi:

  clrscr;

  textcolor(lightgreen);

  write('MASUKKAN JUMLAH DATA MAHASISWA : ');readln(n); writeln;

  for i := 1 to n do

  begin

    writeln('DATA MAHASISWA KE-',i);

    write('> NIM    :  ');readln(nim_12012684[i]);

    write('> Nama   :  ');readln(farihin_lazim[i]);

    write('> Alamat :  ');readln(situbondo[i]);

    write('> Umur   :  ');readln(umur[i]);

    writeln;

   end;

   textcolor(lightgreen);

   clrscr;

   for i:=1 to n do

   begin

     gotoxy(3,4);writeln('--**(( DATA MAHASISWA SEKOLAH TINGGI TEKNOLOGI NURUL JADID ))**--');

     writeln;

     gotoxy(7,6);writeln('=====+===========+===============+=============+=========');

     gotoxy(7,7);writeln('| NO |    NIM    |      NAMA     |   ALAMAT    |  UMUR  |');

     gotoxy(7,8);writeln('=====+===========+===============+=============+=========');

     gotoxy(7,8+i);   write('| ',i);

     gotoxy(12,8+i);  write('| ',nim_12012684[i]);

     gotoxy(24,8+i);  write('| ',farihin_lazim[i]);

     gotoxy(40,8+i);  write('| ',situbondo[i]);

     gotoxy(54,8+i);  write('| ',umur[i],' Th');

     gotoxy(63,8+i);  writeln('|');

    end;

     gotoxy(7,9+i);writeln('=========================================================');

     writeln;

     write('=== tekan Y untuk lagi tekan sembarang tombol untuk stop : ');readln(pil);

     if (pil='Y') or (pil='y') then goto lagi

     else

          begin

       clrscr;

       gotoxy(36,6);writeln('++ WAIT ++');

       gotoxy(27,7);write('DATA ANDA AKAN SEGERA DI SIMPAN');

       delay(1000);

       exit;

     end;

    readln;

end.