Поменять программу так,чтобы я сам вводил число которые будут меняться,а не

Изменить программку так,чтобы я сам вводил число которые будут изменяться,а не рандомно.
Var A:array[1..100] of integer;
i,n,t:integer;
Begin
write('Введите размерность: ');readln(n);
writeln('Начальный массив: ');
For i:=1 to n do
Begin
A[i]:=random(30)-15;
write(A[i]:4);
End;
writeln;
writeln('Преобразованный: ');
i:=0;
While i Begin
inc(i,1);
t:=A[i];
A[i]:=A[i+1];
A[i+1]:=t;
inc(i,1);
End;
For i:=1 to n do
write(A[i]:4);
readln;
End.