Biodata Siswa menggunakan Pascal Code Array

Uses crt;
label ulang;
const
nimsaya=12012708;
procedure judul;
begin
gotoxy(30,2);textcolor(5); Writeln('Created By Icewanto');
gotoxy(33,3); writeln('NIM: ',nimsaya);
writeln('');
textcolor(white);
gotoxy(11,5);writeln('+----------------------------------------------------+');
gotoxy(11,6);writeln('|                  BIO DATA MAHA SISWA               |');
gotoxy(11,7);writeln('|           SEKOLAH TINGGI TEKNOLOGINURUL JADID      |');
gotoxy(11,8);writeln('+----------------------------------------------------+');
end;

procedure isi;
begin
gotoxy(7,12);writeln('====+===========+===============+=============+==============+');
textbackground(3);
gotoxy(7,13);writeln('|NO | NIM       | NAMA          | ALAMAT      | UMUR         |');
textbackground(0);
gotoxy(7,14);writeln('====+===========+===============+=============+==============+');
end;
var
        ripit:char;
        nim   : array[1..10] of longint;
        nama  : array[1..10] of string[15];
        alamat: array[1..10] of string;
        umur  : array[1..10] of byte;
        jm,i,x: longint;
begin
ulang:
clrscr;
write('Masukan Jumlah Data yg Akan Di Inputkan :');readln(jm);
writeln;
        for i := 1 to jm do
begin
textbackground(blue);
textcolor(white);
writeln('Biodata ke-',i);
textcolor(white);
textbackground(0);
write(' nim    = ');readln(nim[i]);
write(' nama   = ');readln(nama[i]);
write(' alamat = ');readln(alamat[i]);
write(' umur   = ');readln(umur[i]);
writeln('');
end;


clrscr;
judul;
isi;
        for i :=1 to jm do
begin
textbackground(0);
textcolor(i);
gotoxy(7,14+i);   write('| ',i);
gotoxy(11,14+i);  write('|  ',nim[i]);
gotoxy(23,14+i);  write('|  ',nama[i]);
gotoxy(39,14+i);  write('|  ',alamat[i]);
gotoxy(53,14+i);  write('|  ',umur[i]);
gotoxy(67,14+i);  write(' |');



for x:=x to jm do
write('      ');
end;
textbackground(0);
textcolor(white);
gotoxy(7,15+i); writeln('====+===========+===============+=============+==============+');
readln;
begin
clrscr;
textcolor(white);
write('Apakah Anda ingin Mengulang Lagi?(y/t): ');
readln(ripit);
if (ripit ='y') or (ripit='Y') then goto ulang;
end;
end.