Как сравнить два одномерных равных массива?

Наверно ты имел ввиду что они равны по длине.
ВОт так.
есть 2 массива:

var
 a,b:array[1..100] of integer;
 count:integer;{текущая длинна массива}

тогда для сравнения, мы прохожим оба масива, сравнивая каждый элемент.

{....}
 I:integer;
 b:boolean; {признак равности}
begin
 {...}
 b:=true;
 for i:=1 to Count do if a[i]<>b[i] then b:=false;
 {теперь B хранит TRUE если массивы равны и наоборот}
end.

Спасибо. Но мне нужно проверить совпадение элементов массивов, и, если совпадают, то вывести совпадающее значение, а если нет, то вывести сообщение.

Ну, а если подумать?

{....}
  I:integer;
  b:boolean; {признак равности}
begin
  {...}
  b:=true;
  for i:=1 to Count do
    if a[i]<>b[i] then begin
      b:=false; writeln(i, '-е значение не совпадает...')
    end
    else writeln(i, '-е значение обоих массивов = ', a[i]);
  {B по-преднему хранит TRUE если массивы равны и наоборот}
end.