Класс сформировать массив роста учеников класса в метрах затем на его основе сформирован второй массив роста учеников класса в сантиметрах и вывести оба на экран

var
A: array [1..100] of real;
i,n: integer;

begin
writeln('Введите кол-во учеников: ');
readln(n);
writeln('Введите их рост в метрах поочередно: ');
 for i:=1 to n do readln(A[i]);
writeln('Рост учеников в метрах: ');
 for i:= 1 to n do writeln(A[i],' м');
writeln('Рост учеников в сантиметрах: ');
 for i:= 1 to n do writeln(A[i]*100,' см');
end.