Определить, имеется ли в двумерном целочисленном массиве, заданном с помощью генератора случайных чисел в диапазоне (-111;200) значение элемента равное B?

var a:array [1..30,1..30] of integer;  i,j,n,m,b:integer;  find:boolean;begin  randomize;  writeln('введите размерность матрицы ');  readln(n,m);  writeln('введите число b ');  readln(b);   find:=false;  for i:=1 to N do  for j:=1 to M do  begin    a[i,j]:=-110+random(200);    if a[i,j]=b then      begin             writeln('Элемент в массиве ',a[i,j]:5, ' =',b:5); find:=true;        exit; {остальные эл-ты не рассм.}    end  end;if find=false then writeln('элемент не найден');end.{2 Способ}var a:array [1..30,1..30] of integer;  i,j,n,m,b:integer;  find:boolean;begin  randomize;  writeln('введите размерность матрицы ');  readln(n,m);  writeln('введите число b ');  readln(b);   find:=false;  for i:=1 to N do  begin  for j:=1 to M do    begin    a[i,j]:=-110+random(200); write (a[i,j]:7);  end;  writeln;  end;  for i:=1 to N do  for j:=1 to M do  if a[i,j]=b then        begin             writeln('Элемент в массиве ',a[i,j]:5, ' =',b:5); find:=true;        exit; {остальные эл-ты не рассм.}    end;if find=false then writeln('элемент не найден');end.