Впаскале плз: сравнить 2 двумерных массива на наличие одинаковых элементов

// pascalabc.net 3.1, сборка 1201 от 18.03.2016 procedure mprint(c: char; a: array[,] of integer);   begin   writeln('матрица ',c);   for var i: =0 to length(a,0)-1 do begin       for var j: =0 to length(a,1)-1 do print(a[i,j]);       writeln       end   end;   begin   var a: =matrixrandom(5,8,10,99); mprint('a',a);   var b: =matrixrandom(7,6,10,99); mprint('b',b);   var ja: =length(a,1)-1;   var ib: =length(b,0)-1;   var jb: =length(b,1)-1;   for var i: =0 to length(a,0)-1 do       for var j: =0 to ja do           for var k: =0 to ib do               for var l: =0 to jb do                   if a[i,j]=b[k,l] then                       writelnformat('a[{0},{1}]=b[{2},{3}]={4}',                           i+1,j+1,k+1,l+1,a[i,j]) end. тестовое решение: матрица a 52 57 83 46 95 73 98 43 40 81 73 72 27 47 56 98 95 88 92 46 92 14 66 97 33 80 56 73 23 33 33 26 21 17 66 29 38 51 71 90 матрица b 66 71 81 86 47 19 81 70 67 60 67 69 94 87 77 48 90 86 23 24 26 34 29 17 58 57 60 19 81 37 69 54 27 12 80 31 32 79 60 23 99 85 a[1,2]=b[5,2]=57 a[2,2]=b[1,3]=81 a[2,2]=b[2,1]=81 a[2,2]=b[5,5]=81 a[2,5]=b[6,3]=27 a[2,6]=b[1,5]=47 a[3,7]=b[1,1]=66 a[4,2]=b[6,5]=80 a[4,5]=b[4,1]=23 a[4,5]=b[7,4]=23 a[4,8]=b[4,3]=26 a[5,2]=b[4,6]=17 a[5,3]=b[1,1]=66 a[5,4]=b[4,5]=29 a[5,7]=b[1,2]=71 a[5,8]=b[3,5]=90

Program array; const a=10; var mas: array [1..a]of integer; n,i,j,k,x: integer; begin writeln('исходный массив: '); for i: =1 to a do writeln(i); n: =1; writeln('отсортированный массив: '); while i> n do    for i: =a downto n do writeln(i); end.