Составить программу,позволяющую ввести с клавиатуры данные о росте учеников в классе в массиве и вывести

var a: array [1..1000] of integer; n: integer; i: integer; begin write('Введите количество учеников ='); readln(n); for i:=1 to n do begin write('Рост ученика №', i ); readln( a[i] ); end; writeln; writeln('Рост всех учеников класса'); for i:=1 to n do write( a[i], ' , '); end. Данные о росте учеников хранятся в массиве "а[]". Т.к. количество учеников не известно, то размерность массива взята с избытком - 1000 элементов хватит для любого класса. Количество учеников хранится в переменной "n". В первом цикле идет заполнение массива, где каждый элемент, это рост очередного ученика. А во втором цикле из массива выводятся на экран через запятую рост всех учеников.