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

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". В первом цикле идет наполнение массива, где каждый элемент, это рост очередного ученика. А во втором цикле из массива выводятся на экран через запятую рост всех воспитанников.