[Pascal] Нахождение одинаковых элементов в 2-х одномерных числовых массивах

[just4smth]

Всем спасибо за ответы!

Сообщение от Mad_Cat

rav:=false;
        for i:=1 to n do
           for j:=1 to n do
              if a[i]=b[j] then
                 rav:=true;

Именно так, нужно было просто удалить строчки:

else
rav:=false;

=================================== =====
Добавлю решение, вдруг кому нибудь пригодится

Program var15_odnomernii_massiv;
Uses crt;
Const n=3;
Var a:array [1..n] of integer;
    b:array [1..n] of integer;
    i,j:integer;
    rav:boolean;

Begin
        clrscr;
        Writeln('Введите элементы первого массива');
        for i:=1 to n do
            Readln(a[i]);
        Writeln('Введите элементы второго массива');
        for j:=1 to n do
            Readln(b[j]);
        //Вариант_1
        rav:=false;
        for i:=1 to n do
           for j:=1 to n do
              if a[i]=b[j] then
                 rav:=true;

        //Вариант_2
        {rav := false;
        i := 1;
           while (not rav and (i <= n)) do begin
              for j:=1 to n do
                 if a[i]=b[j] then begin
                    rav:=true
                    break;
                 end;
        inc(i);
        end;}

        if rav then
           Writeln('Одинаковые элементы есть')
        else
           Writeln('Одинаковых элементов нет');


        Readln;
End.

[satai]

а если нам нужно найти одинаковые элементы массивов и образовать их на 0, тогда как можно сделать? заранее спасибо