Проверка равенства массивов

uses crt;
const nmax=10;
var a,b:array[1..nmax] of integer;
    n,m,i,j:byte;
begin
randomize;
repeat
write('Размеры массивов от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Введите элементы массива А, целые числа');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
writeln('Введите элементы массива B, целые числа');
for i:=1 to n do
 begin
  write('b[',i,']=');
  readln(b[i]);
 end;
clrscr;
writeln('Массив A');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('Массив B');
for i:=1 to n do
write(b[i]:4);
writeln;
i:=1;
m:=0;
while(i<=n)and(m=0) do
if a[i]<>b[i] then m:=1
else i:=i+1;
if m=0 then write('Массивы одинаковые')
else write('Массивы не одинаковые');
end.

const
   nmax = 10;
 
var
   a, b: array[1..nmax] of integer;
   difference: boolean;
   n, i: integer;
 
begin
   write('Размеры массивов, до ', nmax, '. n= ');
   readln(n);
   writeln('Введите элементы массива А, целые числа');
   for i := 1 to n do 
   begin
      write('a[', i, ']= ');
      readln(a[i]);
   end;
   writeln('Введите элементы массива B, целые числа');
   for i := 1 to n do 
   begin
      write('b[', i, ']=');
      readln(b[i]);
   end;
   writeln('Массив A');
   for i := 1 to n do
      write(a[i]:4);
   writeln('Массив B');
   for i := 1 to n do
      write(b[i]:4);
   difference := false;
   while (not difference) or (i <= n) do 
   begin
      difference := (a[i] <> b[i]);
      i := i + 1;
   end;
   if not difference then 
      write('Массивы одинаковые')
   else 
      write('Массивы не одинаковые');
end.