Массивы Опции

[Димасик]

program lab01;
uses crt;
var i,sh:integer;
    m:array[1..50] of integer;
    max:integer;
const a=-200;
      b=200;
begin
ClrScr;
writeln('Задать масив случ. образом от -200 до 200');
writeln('Для генерации нажмите <ENTER>');
readln;
randomize;

for i:=1 to 50 do begin m[i]:=random(b-a)+a;
			write(m[i]:3,'....');
			sh:=sh+1;

			if sh=10 then begin
				readln;
				writeln;
				sh:=0;
				end;



			end;
max:=m[1];

for i:=1 to 50 do
if m[i]<max then max:=m[i];

writeln('Максимальный отриц. элемент по модулю m[',i,'] =  ',max);
readln;
end.

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