DATA MHS

uses wincrt;
type
mhs= record
nama: string[30];
npm: string[15];
alamat: string;
jeniskelamin : char;
     end;
var data:array[1..10] of mhs;
   k,l:integer;
    m,n:byte;
   cetak:char;

begin
k:=0;
while cetak<>'t' do
      begin
      k:=k+1;


      write('Nama          : ');readln(data[k].nama);
      write('Npm           : ');readln(data[k].npm);
      write('Alamat        : ');readln(data[k].alamat);
      write('Jenis Kelamin : ');readln(data[k].jeniskelamin);
      writeln;writeln;
      write('Ingin ditambahkan data lagi[y/t]? ');readln(cetak);
      writeln('');

      end;
clrscr;
gotoxy(1,1);write('');
gotoxy(1,2);write('|            DAFTAR MAHASISWA UNIVERSITAS INDRAPRASTA                |');
gotoxy(1,3);write('----------------------------------------------------------------------');
gotoxy(1,4);write('| Nama');
gotoxy(20,4);write('| Npm');
gotoxy(40,4);write('| Alamat');
gotoxy(55,4);write('| Jenis Kelamin');
gotoxy(70,4);write('|');
gotoxy(1,5);write('----------------------------------------------------------------------');
for l:=1 to k do
begin
gotoxy(1,5+l);write('| ',data[l].nama);
gotoxy(20,5+l);write('| ',data[l].npm);
gotoxy(40,5+l);write('| ',data[l].alamat);
gotoxy(55,5+l);write('| ',data[l].jeniskelamin);
gotoxy(70,5+l);write('|');
end;
gotoxy(1,6+l);write('---------------------------------------------------------------------');
readln;
end.