Подскажите, в чем ошибка

const N = 10;
 var arr: array[1..N,1..N] of integer;
 tmp1, tmp2: array[1..N] of Integer;
 i,j: integer;
  a,b: Integer;
     begin ,
         randomize; 
             for i:=1 to N do 
             begin 
                 for j:=1 to N do
                    begin 
                       arr[i,j] := random(100);
                       write('|',arr[i,j]:3,'|'); 
                    end;
                    writeln;         
             end; 
        for i:=1 to N do 
             write(' ----- '); 
             writeln; 
             writeln ('Введите номер строки1: ');
             read(a);
             writeln ('Введите номер строки2: ');
             read(b);
    for j:=1 to N do 
    begin 
       [B]tmp1[a,j]:=arr[a,j];[/B] //ошибка возникает здесь, мол что-то integer
       tmp2[b,j]:=arr[b,j];
    end; 
    for j:=1 to N do 
    begin 
       arr[a,j]:=tmp2[b,j];
       arr[b,j]:=tmp1[a,j];
    end; 
    write(' ----- ');
    writeln; 
    for i:=1 to N do 
      begin 
          for j:=1 to N do
             begin 
               write('|',arr[i,j]:3,'|'); 
             end;
         writeln;         
      end; 
    
   end.

uses crt;
const N = 10;
var arr: array[1..N,1..N] of integer;
a1,a2,i,j,x:Integer;
begin
randomize;
writeln('Исходная матрица');
for i:=1 to N do
 begin
  for j:=1 to N do
   begin
    arr[i,j] := random(100);
    write(arr[i,j]:4);
   end;
  writeln;
 end;
repeat
writeln('Введите номера строк для обмена 0<a1<a2<=n');
readln(a1,a2);
until(a1>0)and(a2>a1)and(a2<=n);
for j:=1 to n do
 begin
  x:=arr[a1,j];
  arr[a1,j]:=arr[a2,j];
  arr[a2,j]:=x;
 end;
writeln('Обмен строк ',a1,' и ',a2);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(arr[i,j]:4);
  writeln;
 end;
 end.