Задача на матрицы

[коровук виктор]

тема раздела Матрицы, а задачка такая. Пусть дано натуральное число п и целочисленная квадратная матрица по¬рядка п. Получите b1 , b2 , ..., bn, где b i — это значение первого по порядку положительного элемента i-й строки (если таких элементов нет, то принять b i = 1);
заранее Огромное СПАСИБО кто отклитнится!!!

[Mad_Cat]

Язык программирования какой?

[Unique_Maks]

По умолчанию Паскаль)
если пральна понял: задаем квадратную матрицу и ищем в каждой строчке первое положительное число и если таких нет, то как бы первый положительный элемент этой строки = 1

const
  Max = 100;
var
  n, i, j: Word;
  mass: array[1..Max, 1..Max] of Integer;
  res: array[1..Max] of Word;

function FirstP(index: word): word;
var
  jj, p: word;
begin
  p := 1;
  for jj := 1 to n do
    if(mass[index, jj] > 0) then
    begin
      p := mass[index, jj];
      break;
    end;
  result := p;
end;

begin
  Randomize;
  Write('размерность: ');
  Readln(n);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      mass[i, j] := (Random(100)-50)+1;
      Write(mass[i,j], ' ');
    end;
    res[i] := FirstP(i);
    Writeln;
  end;
  for i := 1 to n do
    Writeln(res[i], ' ');
  readln;
end.