определить наименьший элемент каждой четной строки A[N,N], помогите пожалуйста сделать

Pascal/Delphi:
program q171811223;
var
 i, j, n, min: integer;
 a: array [1..100, 1..100] of integer;
begin
 Write('N = ');
 ReadLn(n);
 for i := 1 to n do
  for j := 1 to n do
  begin
   Write('a[', i, ', ', j, '] = ');
   ReadLn(a[i, j]);
  end;
 for i := 1 to n do
  if i mod 2 = 0 then
  begin
   min := a[i, 1];
   for j := 1 to n do
    if a[i, j] < min then
     min := a[i, j];
   WriteLn('Row = ', i, 'Min = ', min);
  end;
 ReadLn;
end.
Если C++, то пиши на мыло.