Задайте масив с помощью рандома 70

Нет

-19; 30; 2; 6; 0; -4; 19; 5; 2; 35;
max element - 10 ego zna4enie = 35
===============
29; 22; -4; 0; -28; -20; 23; -9; -19; 17;
max element - 1 ego zna4enie = 29
===============
-32; -31; -7; -19; -25; 25; 5; -33; -15; -14;
max element - 6 ego zna4enie = 25
===============
-31; -13; 5; -8; -14; -5; 35; -19; 13; -2;
max element - 7 ego zna4enie = 35
===============
25; 34; 17; 26; -25; -1; 29; 21; -18; 6;
max element - 2 ego zna4enie = 34
===============
-18; 20; -26; 23; 3; 32; -26; 9; 24; -15;
max element - 6 ego zna4enie = 32
===============
10; -10; 24; 30; -17; -6; 6; -30; 6; 34;
max element - 10 ego zna4enie = 34
===============
-6; 21; 34; -12; 18; 8; 14; 9; 14; -5;
max element - 3 ego zna4enie = 34
===============
30; -34; 19; -16; -13; 17; -10; 30; -1; -31;
max element - 1 ego zna4enie = 30
===============
1; -12; 13; 22; 0; -10; -25; 20; -25; 7;
max element - 4 ego zna4enie = 22
===============
19; -32; 22; -14; -29; 9; 6; -17; 35; 3;
max element - 9 ego zna4enie = 35
===============
15; 31; 22; 29; -2; -11; -27; 24; 7; 19;
max element - 2 ego zna4enie = 31
===============
-9; 26; -17; 0; 29; 23; -35; 5; -21; -26;
max element - 5 ego zna4enie = 29
===============
-32; 34; 27; 34; -30; -33; 2; 3; 13; -18;
max element - 2 ego zna4enie = 34
===============
10; -21; -7; 29; 1; -13; -19; -30; -24; 12;
max element - 4 ego zna4enie = 29
===============
-33; 4; 4; 2; -7; -11; -30; 5; -24; 30;
max element - 10 ego zna4enie = 30
===============
6; 0; 17; 9; 30; -12; 2; -31; -27; 26;
max element - 5 ego zna4enie = 30
===============
-4; 14; 29; 16; 0; -22; 5; 18; 31; -23;
max element - 9 ego zna4enie = 31
===============
-4; -21; -30; -3; -4; 10; 3; -19; 35; -19;
max element - 9 ego zna4enie = 35
===============
27; 4; 23; -29; 25; -26; 24; -6; -26; 17;
max element - 1 ego zna4enie = 27
===============
6; 2; -24; 2; -18; 31; 16; -24; 18; 0;
max element - 6 ego zna4enie = 31
===============
20; 3; 11; 12; -14; -26; -11; -33; 7; -13;
max element - 1 ego zna4enie = 20
===============
-4; -4; 15; 12; -27; -29; 8; 5; -18; 8;
max element - 3 ego zna4enie = 15
===============
18; 14; 9; 35; 8; -20; 24; -18; -14; 28;
max element - 4 ego zna4enie = 35
===============
23; 12; 14; -18; 12; 21; -26; 28; -6; -3;
max element - 8 ego zna4enie = 28
===============
6; -17; 22; -31; -1; -29; 21; -2; 30; 22;
max element - 9 ego zna4enie = 30
===============

Может быть, на отрезке [-35;+35] ? А сколько всего элементов и какие это числа- целые или как?

Если числа целые и их много, то максимальный элемент может быть не единственным и запоминать в таком случае нужно все номера элементов с этим самым максимальным значением, для чего лучше всего использовать динамический массив. Да и для исходных элементов лучше сразу делать динамический массив, особенно если их количество вводится с экрана как целое число.

В общем так (для целых чисел!):

program maximum; var k,l,max,n:longint; a,b:array of integer; begin while true do begin write('n='); readln(n); randomize; max:=-1000; setlength(a,n); for k:=0 to n-1 do begin a[k]:=random(71)-35; if a[k]>max then begin max:=a[k]; l:=1; setlength(b,1); b[0]:=k end else if a[k]=max then begin l:=l+1; setlength(b,l); b[l-1]:=k end end; for k:=0 to n-1 do write(k+1,':',a[k],' '); writeln('Список номеров максимальных элементов со значением ',max,' :'); for k:=0 to l-1 do write(b[k],' ; ') end end.