Задача на матрицу и массив. Опции

[Kidman]

Задача на матрицу и массив.

Задан массив С1,С2,...Сn. Рассматривая их по очереди, выводить элемент Ci, если он больше любого из элементов i-ой строки матрицы. Также найти сумму элементов матрицы.
Ну найти сумму я смогу, а вот с первой частью помогите пожалуйста.

[volvo]

Kidman
Уточни задание, какова размерность матрицы?

[Kidman]

Да это всё равно! Ну например 5х5.

[volvo]

Kidman
Нет, не все равно... Значит, так... Если дана матрица А(NxN) и массив С(N), то задача решается вот так (набираю прямо здесь, так что могут быть мелкие погрешности):

Код

const
 n = 5;
var
 a: array[1 .. n, 1 .. n] of integer;
 c: array[1 .. n] of integer;
 i, j, max: integer;

begin
 for i := 1 to n do
   begin
     max := a[i, 1];
     for j := 2 to n do
       if a[i, j] > max then max := a[i, j];
     if c[i] > max then write(c[i]:5);
   end;
 writeln;
end.