Задача по массивам - Pascal (88008)

Формулировка задачи:

Вот одна задачка 1: Исходный массив упорядочен по возрастанию Ввести число К и вставить его в массив, не нарушая упорядоченности. Пояснение:Массив одномерный! Вот еще задачка 2:Определить количество различных элементов в массиве (например, дано 2 4 3 2 4 7 4 6 , результат 5). А вот еще тут такая проблема у меня есть наброски задачи нужно довести до ума... Это задание:Вывести первый отрицательный элемент для каждой строки двумерного массива. Вот наброски:

var
mas:array[1..3,1..3] of integer;
i,y:integer;
begin
begin
for y:=1 to 3 do
for i:=1 to 3 do
mas[y,i]:=random(5)-2;
end;
begin
while mas[1,y] < 0 do
begin
writeln('mas[1,y]')
end;
writeln('Нету')
end;
begin
while mas[2,y] < 0 do
begin
writeln('mas[2,y]')
end;
writeln('Нету')
end;
begin
while mas[3,y] < 0 do
begin
writeln('mas[3,y]')
end;
writeln('Нету')
end;
writeln('=======');
end.

Зарание спасибо!

Решение задачи: «Задача по массивам»

Листинг программы

const
  n=5;
type
  dmas=array[1..n,1..n] of integer;
var
  m:dmas;
  i,j:integer;
begin
  randomize;
  for i:=1 to n do
    for j:=1 to n do
      begin
        m[i,j]:=-2+random(5);
        write(m[i,j]:4);
        if j=n then
          writeln;
      end;
  writeln;
  for i:=1 to n do
    begin
      j:=1;
      while (m[i,j]>=0) and (j<=n) do
        inc(j);
      if j>n then
        writeln('V stroke ',i,' net otritsatelnyh chisel.')
      else
        writeln('Perviy otritsatelniy element v ',i,' stroke ',m[i,j],' ego indeks m[',i,',',j,']');
    end;
end.

Объяснение кода листинга программы

Объявлены константа n со значением 5 и тип данных dmas для двумерного массива с размерами 5x5.
Создается переменная m типа dmas, которая будет представлять двумерный массив.
В цикле for заполняются все элементы массива m случайными числами от -2 до 3 с шагом 1.
В цикле for выводятся все элементы массива m на экран.
В цикле for ищутся все отрицательные элементы в массиве m. Если таких элементов нет, то выводится сообщение об этом.
Если найден отрицательный элемент, то выводится сообщение с указанием его индекса и значения.