Определить наименьший элемент каждой четной строки матрицы

uses
  crt;
const
  m=4;
  n=4;
var
  a: array [1..m,1..n] of integer;
  i,j,min: integer;
begin
  clrscr;
  randomize;
  for i:= 1 to m do
  begin
    for j:= 1 to n do
    begin
      a[i,j]:=random(10);
      write(a[i,j],' ');
    end;
    writeln;
  end;
  for i:= 1 to m do
  begin
    min:=a[i,1];
    for j:= 1 to n do
      if i mod 2 = 0 then
        if a[i,j]<min then
          min:=a[i,j];
    if i mod 2 = 0 then
      writeln('Min element ',i,'-oi stroki = ',min);
  end;
  readkey;
end.

for i:= 1 to m do
  begin
    min:=a[i,1];
    for j:= 1 to n do
      if i mod 2 = 0 then
        if a[i,j]<min then
          min:=a[i,j];
    if i mod 2 = 0 then
      writeln('Min element ',i,'-oi stroki = ',min);
  end;

  for i:= 1 to m 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('Min element ',i,'-oi stroki = ',min);
    end;