Построить математическую модель

Необходимо построить математическую модель задачи.
Имеется задача и программный код .
Задача: Дан действительный массив А[1..5, 1..3]. Напечатать индексы его отрицательных элементов.
Программный код:
program MassivAlekseev;
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.