Двумерный массив. Вывести элементы, расположенные в строках с чётными номерами

uses CRT;
Const n=4;
      m=5;
var a:array [1..n,1..m] of integer;
i,j,s,k:integer;
procedure Randomi;
begin
     write('Ìàòðèöà:');
     randomize;
     for i:=1 to n do
     begin
          for j:=1 to m do
              begin
                   a[i,j]:=Random(21);
                   gotoxy(j*5+10,i);
                   Write(a[i,j]);
              end;
     end;
end;
begin
     ClrScr;
     Randomi;
writeln('');
k:=2;
     for k:=2 to n do
     begin
          for j:=1 to m do
              begin
                   write(a[k,j],' ');
              end;
          writeln('');
     k:=k+1;
     end;
end.

Uses Crt
Var a: array [1..100, 1..100] of integer;
i, j, m, n: integer;
begin
Clr Scr;
write ('M='); readln (M);
write ('N='); readln (N);
randomize;
for i:= 1 to m do
for j:= 1 to n do a[i,j]:=random(100);
writeln ('Исходная строка');
for i:= 1 to m do begin
fof j:= 1 to n do write (a[i,j]:4,' ');

  i:=2;j:=1;{i-строка,j- столбец}
  while i<=m do   {пока в матрице присутствуют ЧЁТНЫЕ строки}   
  begin
      for j:=1 to n-1 do write(a[i,j]:4,' ');{Выводить эти строки}
      writeln(a[i,n]:4);
      inc(i,2);{Перейти к следующей строке}
  end;
END.

var 
i,j,n,m:integer; 
a:array[1..30,1..30] of integer; 
b:array[1..30,1..30] of integer;
BEGIN
  writeln('Vvedite kol-vo strok'); readln(m);
  writeln('Vvedite kol-vo stolbcov'); readln(n);
  randomize;
 
   for i:=1 to m do 
     begin 
     for j:=1 to n do 
       begin 
       a[i,j]:=random(10); 
       write(a[i,j]:3, ' '); 
       end; 
     writeln; 
     end; 
   writeln('--------------'); 
   
   for i:=1 to m do
     begin 
     for j:=1 to n do 
       begin
       if i mod 2=0 then
       write(a[i,j],'  ');
       end;
     writeln;
     end; 
readln;
END.

var
   mt   : array [ 1 .. 255 , 1 .. 255 ] of integer ;
   i , j , n , m : byte ;
begin
     readln ( m , n ) ;
     writeln ( 'Matrix:' ) ;
     for i := 1 to n do
         for j := 1 to m do
             read ( mt [ i , j ] ) ;
     writeln ( 'Output:' ) ;
     for i := 1 to m div 2 do
     begin
          for j := 1 to n do
              write ( mt [ 2 * i , j ] : 6 ) ;
          writeln ;
     end ;
end .

procedure Randomi;
begin
     writeln('Ìàòðèöà:');
     randomize;
     for i:=1 to n do
     begin
          for j:=1 to m do
              begin
                   a[i,j]:=Random(21);
                   Write(a[i,j]:4);
              end;
          writeln;
     end;
end;