Program array pascal

Saya coba membuat program untuk menampilkan nama dan nilai di dalam program ini saya menggunakan array dan alhamdulillah jadi ,,,,
lebih lengkapnya lihat dibawah ini :


source codenya

Program Contoh_Deklarasi_Array_Beragam;
Uses winCrt;
Var
Nama : array[1..20] of string[25];
Nilai : array[1..20] of real;
banyak,i : integer;
lagi : char;
Begin
lagi:='Y';
repeat
ClrScr;
       writeln('-----------------------');
       writeln(' goshohib.blogspot.com ');
       writeln('-----------------------');
       writeln;
       Write('Data yang diperlukan :');Readln(banyak);
       For i := 1 to banyak Do
       Begin
       Write('Nama  :');readln(Nama[i]);
       Write('Nilai :');readln(Nilai[i]);
       writeln;
       End;
writeln;
writeln('----------------------');
Writeln('NAMA             NILAI');
writeln('----------------------');
            For i:= 1 to banyak Do
Begin
     Writeln(Nama[i]:3,Nilai[i]:17:0);
end;
 writeln('----------------------');
 writeln;
 write('Ulangi program y/t : ');readln(lagi);
 until ((lagi = 't') OR (lagi = 'T'));
 donewincrt;
End.

Gambar Running Program