Tìm min max từng hàng của ma trận và vị trí của nó

uses crt;
type matran=array[1..10,1..10] of integer;
var
  a:matran;
  min,max:integer;
  i,j,h,c,jmin,jmax:byte;
begin
  clrscr;
  {Nhap ma tran}
  write('Nhap hang: '); readln(h);
  write('Nhap cot : '); readln(c);
  writeln('Nhap cac phan tu cua ma tran:');
  for i:=1 to h do
    begin
      for j:=1 to c do
        begin
          write('a[',i,',',j,']= ');
          readln(a[i,j]);
        end;
    end;
  {Xuat ma tran}
  writeln('Ma tran ban vua nhap: ');
  for i:=1 to h do
    begin
      for j:=1 to c do write(a[i,j]:3);
      writeln;
    end;
  {Xuat min, max, vi tri cua tung hang}
  for i:=1 to h do
    begin
      min:=a[i,1]; jmin:=1;
      max:=a[i,1]; jmax:=1;
      for j:=1 to c do
        begin
          if min>a[i,j] then
            begin
              min:=a[i,j];
              jmin:=j;
            end;
          if max<a[i,j] then
            begin
              max:=a[i,j];
              jmax:=j;
            end;
        end;
      writeln('Hang ',i,':');
      writeln('    min= ',min,' vi tri cot thu ',jmin);
      writeln('    max= ',max,' vi tri cot thu ',jmax);
    end;
  readln;
end.