Конструктор режимінде өрістің типін қалай енгізуге болады​

Program n1;
Uses CRT;
Const n=15;
Var A: array[1..n] of integer; B: array[1..n] of integer;
i,k,max: integer;
begin
randomize;
clrscr;
Writeln('ishodny massiv');
For i:=1 to n do
begin
a[i]:=random(100);
a[i]:=a[i]-50;
write(a[i]:4);
end;
writeln;
writeln('polychenny massiv');
max:=0;
For i:=1 to n do
begin
b[i]:=-a[i];
write(b[i]:4);
If a[i]=b[i] then k:=k+1;
If (b[i]>0)and(b[i]>max) then max:=b[i];
If (b[i]<0)and(-b[i]>max) then max:=-b[i];
end;
writeln;
Writeln('Kolychestvo neizmenyvshihsa elementov=',k,', samyi bolshoy po modyly element raven =',max);
writeln
end.

Город - Население(1, 2 3 миллиона человек), Размер( 1000, 10000, 1000000,километров в квадрате), Расстояние до столицы (100, 1000, 1500 км)

Автомобиль - Пробег(10000, 50000, 100000км), максимальная скорость(80, 200, 300км/ч), год выпуска(1950, 2005, 2014г)

Компьютер - тактовая частота(1, 2, 3 Ггц), Объем оперативной памяти(4, 16, 64 ГБ), Объем памяти жесткого диска( 300, 600, 2000 ГБ)

Клавиша клавиатуры - цвет( Черный, белый, серый), Являеться ли клавиша горячей (да, нет, только в сочетании с другими), количество различных символов, которые можно набрать с одной клавиши(0, 1, 2, 3) 

Классная доска - Поверхность для письма(Металл, дерево, глянец), размер(2,3,4 метра в квадрате), количество возможных положений доски(1,2,3,4)