одномерный массив, массивы Опции

[электрик]

помогиет решить задачу!! срочно, не могу зачет здать!
вот она:
Составьте прогу, проверяющую, можно ли, меняя местами элементы одномерного массива А, получить одномерный массив В

[volvo]

flag := true;
for i := 1 to n do
  flag := flag and (a[i] = b[i]);

if flag then writeln('Можно') else writeln('Нельзя');

[электрик]

flag := true;
for i := 1 to n do
  flag := flag and (a[i] = b[i]);

if flag then writeln('Можно') else writeln('Нельзя');

т.е я сортирую потом добавляю
ag := true;
for i := 1 to n do
flag := flag and (a[i] = b[i]);

if flag then writeln('Можно') else writeln('Нельзя');
и все