const
    m = 10;

var
    q: array[1..m] of integer;
    w: array[1..m] of integer;
    x,z,c: integer;

begin


    write ('Исходный массив: ');
    for x := 1 to m do begin
        q[x] := random(-20,20);
        write (q[x]:4);
    end;
    writeln; writeln;

    for x:= 1 to m do begin
      w[x]:= q[x]*q[x];
    end;
    c:=1;
    for x:= 1 to m-1 do begin
      if w[x] > w[x+1] then begin
      z:=x;        //если элемент больше, чем след. , то записываем номер
      if w[c] < w[z] then c:=z;  // проверяем с самым большим из записанных и записываем в случае удачи

      if w[c] < w[m] then c:=m;  // отдельно проверяем с последним числом массива, ибо программа не захватывает последний элемент

    end;
    end;
 //   for i := 1 to m-1 do
 //       for j := 1 to m-i do
 //           if chlen[j] > chlen[j+1] then begin
 //               k := chlen[j];                          я долбаёб и не смог
 //               chlen[j] := chlen[j+1];             сделать через сортировку
 //               chlen[j+1] := k;                  можешь стирать эту хуйню
 //               z:=i+1;
 //           end;

    write ('Массив в квадратах: ');
    for x := 1 to m do
        write (w[x]:4);

    writeln; writeln;

    write ('Номер элемента: ',c);

end.