Record dan array

Buat data mahasiswa dengan inputuan yang sudah ditentukan menggunakan array dan record.

uses wincrt;
type biodata = record
alamat : string;
nama : string;
ttl:string;
nim : string;
end;
var
data:biodata;
n,i: integer;
begin
writeln ('Inputkan Jumlah data Mahasiswa');readln(n);
for i:=1 to n do
begin
writeln ('Data ke - ',i,':');
write ('NIM : '); readln(data.nim);
write ('Nama : '); readln(data.nama);
write ('Alamat : '); readln(data.alamat);
write ('TTL : '); readln(data.ttl);
writeln;
end;
end.