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

uses crt;
const
     n=20;
var mas:array[1..n] of integer;
    i,count:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
    begin
    mas[i]:=random(30)-10;
    write(mas[i],' ');
    end;
writeln;
writeln('Совпадают с индексом:');
count:=0;
for i:=1 to n do
    begin
        if (mas[i]>0) and (mas[i]=i) then
           begin
           write(mas[i],' ');
           count:=count+1;
           end;
    end;
if count=0 then
writeln('Таких чисел в массиве нет!');
end.

uses crt;
var a:array [1..5,1..3] of integer;
var i,q:integer;
begin
clrscr;
for i:=1 to 5 do
for q:=1 to 3 do
read(a[i,q]);
for i:=1 to 5 do
for q:=1 to 3 do
if a[i,q]<0 then
writeln('(',i,' ',q,')');
readln;
end.

uses crt;
const
     n=20;
var mas:array[1..5,1..3] of integer;
    i,j:integer;
begin
writeln('Исходная матрица:');
for i:=1 to 5 do
    begin
    writeln;
    for j:=1 to 3 do
        begin
        mas[i,j]:=random(30)-10;
        write(mas[i,j]:3,' ');
        end;
    end;
writeln;
writeln('Индексы отрицательных элементов:');
for i:=1 to 5 do
    begin
    for j:=1 to 3 do
        begin
             if mas[i,j]<0 then
             write('[',i,',',j,'] ');
        end;
    end;
 
end.