Напишите программу на задачу на поиск эктремальных элементов в массиве

[Death///]

В числовом массиве, заполненном с помощью генератора случайных чисел, поменять местами первый и максимальный элемент.

[Abstraction]

Как найти индекс максимального элемента? Держать в памяти "кандидата на максимум" и его индекс (изначально, кандидат - первый элемент массива); идти по массиву, каждый раз проверяя, не оказался ли текущий элемент больше "кандидата"; если оказался - это наш новый кандидат, надо запомнить его самого и его индекс.
По завершении обхода массива имеем индекс максимального элемента.

Как поменять два элемента, зная их индексы? Через третью переменную.

[NinaSSS]

код:

program fghkjgh;
var a:array[1..100] of integer; i,t,max,c,n:integer;
begin
randomize;
readln(n);
for i:=1 to n do begin
a[i]:=random(100); end;
for i:=1 to n do begin
write(a[i]:3);
end; writeln;
max:=a[1]; c:=1;
for i:=2 to n do begin
if a[i]> max then begin max:=a[i]; c:=i;end; end;
writeln('max',max);  writeln('mesto=',c);
t:=a[1];
a[1]:=a[c];
a[c]:=t;
writeln('rezultat');
for i:=1 to n do begin
write(a[i]:3);
end;end.

[Death///]

Нина,это не то мне надо в бейсике программу