Record + Array pada Pascal

program record&array;
uses crt;
type
Thiphop = record
nama : string[20];
alamat : string[30];
Nick : string[10];
end;
var i:byte;
hiphoper :array[1..6] of Thiphop;
begin
writeln('inputkan kosong / enter untuk selesai');
for i := 1 to 2 do
begin
write('input nama : ');readln(hiphoper[i].nama);
write('input alamat : ');readln(hiphoper[i].alamat);
write('input nick : ');readln(hiphoper[i].nick);
end;
readkey;
for i := 1 to 2 do
begin
writeln(hiphoper[i].nama );
writeln(hiphoper[i].alamat );
writeln(hiphoper[i].nick);

end;
READKEY;
end.