скроллинг

[Chief]

помогите с куском программы БД,нужно удалить объект.Нужно на экран вывести список всех объектов,ммм допустим по 20 и чтобы пользователь мог стрелками выбрать объект нажать Enter и этот объект удалился(предварительно должен быть вопрос,мол,вы действительно хотите удалить объект?=))
я так понял нужно засунуть всё это в растягивающийся массив,в общем засунул и вывел на экран,то есть сделал первичный вывод

x:=30;
y:=3;
for i:=1 to 20 do
 begin
   gotoxy(x,y);
   write(m^[i].name);
   y:=y+1;
 end;

m^[i].name=это i-тое название объекта

y:=3;
textbackground(red);
write(m^[i].name);
c:='';
while c<>#13
.......

а вот дальше прошу вас помочь

[Chief]

блин пожалуйста помогите,за этим дело стоит...