Работа со списками Опции

[- Sergey -]

Вообщем есть такое задание:
"Ввести информацию о количестве продукции на складе в массив записей и вывести ее в виде таблицы."

Вот что у меня получилось:

Код

uses crt;

type
production = record
name: string;
kol: integer;
end;
var
a: array [1..50] of production;
i,n: integer;
begin
clrscr;
writeln('Введите количество продукции: ');
readln(n);
for i:=1 to n do
 begin
  write('Наименование: ');
  readln(a[i].name);
  write('Количество: ');
  readln(a[i].kol);
 end;
writeln;
writeln;
for i:=1 to n do
 begin
  writeln('  ',a[i].name:12,a[i].kol:8);
 end;
readln;
end.

Подскажите где здесь недочёты. Как можно сделать красивее и т.д.

[AlienEmperor]

а) Что-то именно списка я здесь и не вижу - массив с явно заданными размерами - да, а "списки" - нет. Неужели в задании говорилось о статическом массиве ? А если записей больше 50 ? Или меньше ?
б) При выводе на экран верхние записи "уйдут" - видно их не будет (если их не 2-3). Надо хотя бы предусмотреть остановку вывода до нажатия any key (типа: "для просмотра след. страницы нажмите...'');

А так вроде все правильно... На самом деле для "красоты" здесь можно ТАКОГО наворочать... Вот только нужно ли ? Какие у препода запросы ?