Program Array Menampilkan Data Siswa

program ArrayRecord;

uses wincrt;

const max = 100;

type

 TSiswa = record

  NIM:string[8];

  Nama:string[30];

 end;

TKumpulanSiswa = array[1..max] of TSiswa;

var

 a: TkumpulanSiswa;

 i,n: integer;

begin

 clrscr;

 write('Masukan jumlah siswa yang diinginkan');

 readln(n);

 writeln;

 {masukan data ke array}

 writeln('Memasukan data');

 writeln('________________');

 for i:=1 to n do begin

  writeln('Data siswa ke-',i);

  write('NIM :');readln(A[i].NIM);

  write('Nama:');readln(A[i].Nama);

  writeln;

 end;

 {menampilkan data dari array}

 writeln;

 writeln('DAFTAR SISWA');

 writeln('_________________');

 writeln('NIM    ', '':2,'  NAMA');

 writeln('_________________');

 for i:=1 to n do begin

  with A[i] do begin

   writeln(NIM:8, '':2, Nama);

  end;

 end;

end.