Пересечение множеств, паскаль

[Bellatryx]

Всем привет. Вот задание, помогите.Необходимо найти общие элементы массива b, длиной l и строк матрицы a. Вот код, но там выдает ошибку "выход за границы диапазона изменения индекса 1..4", помогите это исправить.

const N=3;
      M=4;
type t_base=integer;
     t_arr=array [1..M]of t_base;
     t_matr=array[1..N,1..M]of t_base;
function inmatr(x:t_base;a:t_matr):boolean;
var i,j:integer;
    f:boolean;
begin
  i:=1;
  f:=true;
  while(f)and(i<=N)do
    begin
      j:=1;
      while(x<>a[i,j])and(j<=M)do
        inc(j);
      if j>M then
        f:=false;
      inc(i);
    end;
  inmatr:=f;
end;
var a:t_matr;
    b:t_arr;
    i,j,k,l:integer;
begin
  write('lenth<=',M);
  read(l);
  for i:=1 to l do
    read(b[i]);
  writeln('matr');
  for i:=1 to N do
    for j:=1 to M do
      read(a[i,j]);
  k:=0;
  for i:=1 to l do
    if inmatr(b[i],a) then
      begin
        inc(k);
        b[k]:=b[i];
      end;
  if k=0 then
    write('emtpy set')
  else
  for i:=1 to k do
    write(b[i]);
end.

[Paster Fob]

Я после написания кода и компиляции,прогоняю прогу в отладчике и слежу за всеми изменениями в переменных.Что позволяет с лёгкостью находить ошибки.

[TinMan]

Дорогая Искушенная Смертью, в строке:

      while(x<>a[i,j])and(j<=M)do

поменяй порядок условий, вот так:

      while (j<=M) and (x<>a[i,j]) do

P.S.
немного не уверен в точности интерперетации твоего ника (в оригинале должно быть "i", а не "y"), если что - не обижайся и поправь меня..