Двумерные массивы. Паскаль

[deceiver]

Создать и вывести массив с елементами А(k,n)=n*sin(k)+cos(n)
k,n=1,2,3,4. Вывести его на екран в виде таблици.
Найти индексы минимального елемента массива, вычислить произведение его отрицатальных елементов.
если можете то пожалуйста оставляйте пояснения, шоб я хоть немного разобраля с етим языком ...
Зарание спасибо

[maladoy]

program XpeHb;
uses crt;
const
k=4;
n=4;
var a:array[1..k,1..n] of real;
mini,minj,i,j:integer;
p,min:real; 
begin
for i:=1 to k do
for j:=1 to n do
a[i,j]:=j*sin(i)+cos(j);
mini:=1;
minj:=1;
p:=1;
min:=a[1,1];
for i:=1 to k do
begin
for j:=1 to n do
write(a[i,j]:6:4);
writeln;
end;
for i:=1 to k do
for j:=1 to n do
begin
if a[i,j]<min then begin 
min:=a[i,j];
mini:=i;
minj:=j;
end;
if a[i,j]<0 then p:=p*a[i,j];
end;
writeln('proizv otr=',p:6:4);
writeln('index of min: [',mini,minj,']');
readln;
end.

[capta1n]

program XpeHb;

)) зачотно ))

[deceiver]

Спасибо!!!!!

[deceiver]

Выводится матрица с одинаковыми числами...проверьте плиз