Матрицы

uses crt;
type mas =array[1..100,1..100]of integer;
var i,j,n,m,min:integer;
a:mas;
begin
clrscr;
textcolor(11);
write('Vvedite n ');
textcolor(12);
readln(n);
textcolor(11);
write('Vvedite m ');
textcolor(12);
readln(m);
for i:=1 to n do
for j:=1 to m do
               begin
                 textcolor(11);
                 writeln('a[',i,',',j,']= ');
                 textcolor(12);
                 readln(a[i,j]);
               end;
textcolor(13);
for i:=1 to n do
          begin
for j:=1 to m do
                 write('   ',a[i,j]);
writeln;
writeln;
end;
 
for i:=1 to n do
              begin
                min:=a[i,1];
                if i mod 2 = 0 then
                               begin
                                 for j:=1 to m do if a[i,j]<min then min:=a[i,j];
                                 textcolor(13);
                                 write('minemum v strochke #',i,'=');
                                 textcolor(12);
                                 writeln(min);
                               end;
              end;
readln;
end.