Массив индексы Опции

[BuTeK]

Добрый день !
Написал программу которая находит минимальный элемент во 2-ой и 3 колонне !
Но незнаю как вывести их индексы ! Помогите пожалуйста !

 Program masssiv;
Uses CRT;
var tmp,q,j,i,k,l: integer;
A:array[1..5,1..5] of integer;
begin
clrscr;


randomize;
  for i:=1 to 5 do
   begin
   for j:=1 to 5 do
	begin
	A[i,j]:=Random(18)-9;
	 write(A[i,j]:5);
	end;
  writeln;
  end;

	tmp:=A[1,2];
	for i:=1 to 5 do
	 for q:=2 to 2  do

	  if A[i,q]<tmp then
	  begin
		tmp:= A[i,q];
	  end;

	  writeln(tmp);


		  tmp:=A[1,3];
	  for i:=1 to 5 do
	 for q:= 3 to 3  do
	  if A[i,q]<tmp then
	  begin
		tmp:= A[i,q];

	  end;

	  writeln(tmp);


readln;


end.

[volvo]

Исправлено