Определить информационный объем сообщения : Я люблю информатику!

Const
n=10;m=7;
var
a:array[1..n,1..m]of integer;
flag,i,j,b:integer;
begin
     for i:=1 to n do
         begin
             writeln;
                 for j:=1 to m do
                      begin
                        a[i,j]:=random(312)-111;
                        write(a[i,j]:4);
                      end;
            end;
writeln;
Writeln('B ?');
readln(b);
for i:=1 to n do
  for j:=1 to m do
      if a[i,j]=b then
          flag:=1;
if flag=1 then
   writeln('Yes')
else
   writeln('N');
end.

вариант 2
const
n=10;m=7;
var
a:array[1..n,1..m]of integer;
k,i,j,b:integer;
begin
     for i:=1 to n do
         begin
             writeln;
                 for j:=1 to m do
                      begin
                        a[i,j]:=random(312)-111;
                        write(a[i,j]:4);
                      end;
            end;
writeln;
Writeln('B ?');
readln(b);
for i:=1 to n do
  for j:=1 to m do
      if a[i,j]=b then
          k:=k+1;
if k<>0 then
   writeln('Yes')
else
   writeln('N');
end.

Вариант, когда массив заполняется случайными числами:

var A: array [1..10] of integer;

var i,max,min: integer;

begin

max:=1;

min:=1;

randomize();

for i:=1 to 10 do

 begin

 A[i]:=random(100);

 write(A[i],' ');

 if (A[i]>A[max]) then max:=i;

 if (A[i]<A[min]) then min:=i;

 end;

writeln();

writeln('Минимальный элемент: ',A[min]);

writeln('максимальный элемент: ',A[max]);

end.

Вариант, когда массив вводится с клавиатуры:

var A: array [1..10] of integer;

var i,max,min: integer;

begin

max:=1;

min:=1;

for i:=1 to 10 do

 begin

 readln(A[i]);

 if (A[i]>A[max]) then max:=i;

 if (A[i]<A[min]) then min:=i;

 end;

writeln();

writeln('Минимальный элемент: ',A[min]);

writeln('максимальный элемент: ',A[max]);

end.