Написать программку полностью. Безотлагательно (Паскаль)"Отыскать индексы тех элементов массива, у

Uses crt;
var a:array [1..100] of integer;
k,n,i:integer;
begin
clrscr;
write('Введите количество элементов массива=');
readln(n);
randomize;
for i:=1 to n do
a[i]:=random(45)-20;
writeln('Начальный массив');
for i:=1 to n do
 write(a[i]:6);
writeln;
for i:=1 to n-1 do
 if a[i+1]gt;a[i] then 
  writeln('Индексы: ',i:3);
writeln;
readln;
end.