Максимальное отрицательное. Матрица ( Pascal )

[P1RoG]

Добрый вечер, а точнее ночь ) Помогите закончить задачу, там вроде бы все пару строчек добавить, но нет времени искать куда, так как делаю другие задачи, вот собственно задача и наброски:

Найти максимальное отрицательное элементов каждого рядя матрицы В (6,4 ). Результат запишите в массив Х.

uses crt;
var b:array[1..6,1..4] of integer;
    x:array[1..24] of integer;
    m,i,j:byte;
    max:integer;
begin
clrscr;
writeln('Исходная матрица:');
for i:=1 to 6 do
 begin
   for j:=1 to 4 do
    begin
     readln(a[i,j])
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
for i:=1 to 6 do
 begin
  max:=a[i,1];
  for j:=1 to 4 do
  if a[i,j]>max then max:=a[i,j];
  x[i]:=max ;
 end;
writeln('Массив максимальных отрицательных элементов строк:');
for i:=1 to 6 do
write(x[i],' ');
readln
end.

и если не сложно вот есть еще одна задача почти аналогичная только добавилось одно условие :

Найти сумму среднего геометрического положительных элементов главной диагонали и максимального отрицательного элементов
второстепенной диагонали матрицы z(5,5)

[Stilet]

Я наверное припознился, но всетки предложу так:

uses crt;
var b:array[1..6,1..4] of integer;
    x:array[1..6] of integer;
    m,i,j:byte;
    max:integer;
begin
clrscr;
writeln('Исходная матрица:');
for i:=1 to 6 do
 begin x[i]:=a[i,1];
   for j:=1 to 4 do
    begin
     readln(a[i,j])
     write(a[i,j]:4);
     if a[i,j]>x[i] then x[i]:=a[i,j];
    end;
   writeln;
 end;
writeln;

writeln('Массив максимальных отрицательных элементов строк:');
for i:=1 to 6 do
 write(x[i],' ');
readln;
end.

[P1RoG]

Нет в самый раз, спасибо за помощь )
О_О ток заметил что ты с моего города)

[P1RoG]

просмотрев задачу , у тебя почти как у меня находит максимальное число вобще, а по условие надо максимальное отрицательное, или я чего-то не понимаю? )

Ну еще я ошибся там в моём наброске везде где матрица "a" надо заменить на "b". Ну в общем-то сути вопроса выше это не меняет.

[P1RoG]

if a[i,j]>max and a[i,j]<0 then max:=a[i,j];

Вот так исправил, так же правильно?)

[P1RoG]

так вобще не работает, так все-таки что надо поменять что бы макс отрицательное находило?

Апдейт : все, я перепутал условие xD Теперь буду думать сам над другим Т_Т