contoh program Array (turbo pascal)

uses wincrt;
var
nim : array [1..20] of string;
nama : array [1..20] of string;
umur : array [1..20] of byte;
nilai : array [1..20] of integer;
n, i : integer;
ulang : string;
begin
ulang:=’ya';
while (ulang = ‘ya’) or (ulang = ‘YA’) do
Begin
{Clrscr;}
writeln;
writeln(‘ ***************************** ‘);
writeln(‘ * STMIK BUDIDARMA MEDAN * ‘);
writeln(‘ ***************************** ‘);
writeln;
write(‘Masukkan jumlah penginputan : ‘); readln (n);
writeln;
writeln(‘Silahkan Masukkan data mahasiswa’);
writeln(‘~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~’);
writeln;
for i := 1 to n do
begin
writeln(‘DATA Ke ‘ ,i);
write(‘ NIM : ‘); readln(nim[i]);
write(‘ Nama : ‘); readln(nama[i]);
write(‘ Umur : ‘); readln(umur[i]);
write(‘ Nilai : ‘); readln(nilai[i]);
writeln;
end;
begin
writeln(‘ DATA MAHASISWA SEMESTER GENAP (2015/2016) ‘);
writeln(‘ +=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+’);
writeln;
writeln(‘====================================================’);
writeln(‘NIM NAMA UMUR NILAI’);
writeln(‘====================================================’);
for i := 1 to n do
begin
writeln( nim[i]:3, nama[i]:13, umur[i]:16, nilai[i]:18);
end;
writeln(‘====================================================’);
write(‘ulang data lagi tekan ya : ‘);readln(ulang);
end;
end;
readln;
donewincrt;
End.

 HASILYA SEPERTI BERIKUT

 *****************************

 * STMIK BUDIDARMA MEDAN *

 *****************************

Masukkan jumlah penginputan : 1

Silahkan Masukkan data mahasiswa

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

DATA Ke 1

 NPM : 14110114

 Nama : Edisokhi

 Umur : 20 Tahun

 Nilai : 89

 DATA MAHASISWA SEMESTER GENAP (2015/2016)

 +=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+

====================================================

NIM      :      NAMA  :    UMUR    :     NILAI

====================================================

14110114   Edisokhi           20            89

====================================================

ulang data lagi tekan ya :