Всем привет) Помогите написать алгоритм решенной задачи в Pascal...

Код:
var a:array[1..1000,1..1000] of integer;
n,i,j,k:integer;
begin
writeln('Введите кол-во строк/столбцов');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
readln(a[i,j]);
if a[i,j]<0 then k:=k+1;
end;
writeln('Кол-во отрицательных элементов = ',k);
readln
end.
Алгоритм:
???
Начало
Введит кол-во строк и столбцов
Решение, формула
Вывод ответа на экран... .