Сумма положительных элементов матрицы, поиск минимального числа

Uses crt;
const m=3;n=6;
type mat=array [1..m,1..n] of integer;
Var i,j:word;
    sum:integer;
    a:mat;
    min:integer;
Begin
for i:=1 to m do
begin
for j:=1 to n do
begin
write('Введите  ',i,',',j,'-й элемент матрицы: ');readln(a[i,j]);
IF min>a[i,j] then min:=a[i,j];
end;
end;
sum:=0;
min:=a[1,1];
For i:=1 to n do
begin
for j:=1 to N do
begin
write(a[i,j]:4);
IF a[i,j]>0 then sum:=sum+a[i,j];
end;
writeln;
end;
writeln('sum=',sum);
writeln('min=',min);
readkey;
end.

uses
    crt;
var
   a:array[1..3,1..6] of integer;
   i,j,sum,min:integer;
begin
     writeln('wvedite massiv');
     for i:= 1 to 3 do
         for j:= 1 to 6 do
             read(a[i,j]);
     sum:=0;
     min:=a[1,1];
     for i:= 1 to 3 do
         begin
         for j:= 1 to 6 do
             begin
             if a[i,j]>0 then
                sum:=sum+a[i,j];
                if a[i,j]<min then
                   min:=a[i,j]
             end
         end;
writeln('rezultat => ',sum);
writeln('min =>',min);
readkey
end.