лаба8 записи через массив

[Владан]

Заданные поля записи, определить их типы данных, написать программу для ввода произвольного количества записей через массив,
который инициализировать как типизированную константу.
Вывести записи по указанному критерию на экран в форме, удобной для просмотра.
11. Муз. ансамбль: название, направление, количество человек. Критерий: ансамбли из трех человек

type
  group=record
  name:string;
  way:string;
  people:integer;
end;
var
  List:array[1..500] of group;
  i,n:integer;
begin
  SetconsoleCp(1251);
  SetConsoleOutputcp(1251);
  Writeln ('Введіть кількість груп');
  if (n<=500)and (n>=1)
  then readln(n);
  for i:=1 to n do
  with list[i] do
begin
  Writeln('Введіть назву групи');
  readln (name);
  Writeln('Введіть напрямок групи');
  readln(way);
  Writeln('Введіть кількість групи');
  readln(people);
  end;
  for i:=1 to n do
begin
  if list[i].people=3 then
begin
  write(list[i].name);
  write(list[i].way);
  Writeln(list[i].people);
  end;
  end;
readln;
end.

в окне(F9) ввожу количество групп и сразу выбивает

[Stilet]

if (n<=500)and (n>=1)

Что это? Зачем?

[Владан]

Сообщение от Stilet

Что это? Зачем?

а , все ,спасибо
а можно еще как-то const добавить что бы само в окне выбивало ?!

[domovou]

Сообщение от Stilet

Что это? Зачем?

Я так думаю это проверка на кол-во групп, только не правильная.
Владан, поставь readln(n) перед If (n<=500)and (n>=1) ...

Сообщение от Владан

а можно еще как-то const добавить что бы само в окне выбивало ?!

const
     n=5;
type
  ...
var
  List:array[1..n] of group;
  i:integer;

Тогда readln(n) удали