Подскажите решение задачи. Нужно создать базу данных жилого дома.

program bazadannix;
USES CRT;
type
human= record
name: string;
seneme: string;
col: integer;
colgiv:integer;
nomkv: integer;
end;
var
i:human;
begin
clrscr;
i.name:='Петров';
i.seneme:='Петров';
i.col:=5;
i.colgiv:=1;
i.nomkv:=1;
writeln (i.name);
writeln(i.seneme);
writeln(i.col);
writeln(i.colgiv);
writeln(i.nomkv);
repeat until KeyPressed
end.

Я вот начал с этого, а дальше не знаю как создать дом и забить туда жильцов.

 

как создать дом и забить туда жильцов.

dom:array[1..n] of human;

жильцов забиваем ВЕЛИКИМ РАНДОМОМ