Задача на массивы

[tabanga]

Ребята помогите исправить программу

Задан массив целых чисел, пользователь вводит число, выяснить существует ли такое числов в массиве.

При вводе числа 0 работает не правильно.

PHP код:

Program massiv2;

Var m:array [1..20] of integer;
a,i,b:integer;

begin

Randomize;
for i:=1 to 20 do begin
               m[i]:=random(101)-random(100);
               Write (m[i],' ');
               end;
writeln (' Введите число ');
readln (b);
a:=0;
for i:=1 to 20 do begin
                  if m[i]=b then a:=b;

                  end;
if b=a then Writeln (' Такое число существует ')
       else Writeln (' Такого числа нету ');
end. 


[filvika]

if a <> 0 then Writeln ('Такое число существует ')

где a - индекс последнего искомого числа в массиве

[tabanga]

Если в массиве встречается число 0, то все равно выводит сообщение о том, что такого числа нет

[filvika]

Вариант 1:

a:=-999; // Число, которое в принципе не может встретиться в массиве 
...
if a <> -999 then Writeln ('Такое число существует ')

Или вариант с переменной типа boolean

var
    m: array [1..20] of integer;
    i, b: integer;
    a: boolean;
begin
    randomize;
        for i := 1 to 20 do
        begin
            m[i] := random(101)-random(100);
            write(m[i], ' ');
        end;
    writeln;
    writeln(' Введите число: ');
    readln(b);
    a := false; //  такого числа нет
        for i := 1 to 20 do
            if m[i] = b then
            begin
                a := true; // Такое число встретилось
                break; // Выход из цикла
            end;

        if a then writeln (' Такое число встречается в массиве')
        else writeln (' Такого числа нет в массиве');
    readln;
end.

[tabanga]

Спасибо большое