Разработать процедуру вывода массива,состоящего из равных элементов двух массивов — Pascal(Паскаль)

procedure Difference(const x: mas; m: integer; const y: mas; n: integer; var z: mas; var k: integer);
var
  i, j: integer;
  f: boolean;
begin
  k := 0;
  for i := 1 to m do
  begin
    f := false; //не совпадает
    j := 1;
    while (j <= n) and not f do
    if x[i]=y[j] then  f := true  //если совпал
    else  j := j + 1; //иначе дальше
    if f then
     begin
      k := k + 1;
      z[k] := x[i];
     end;
  end;
end;