Информатичка задолбала задала какую-то хрень!! Помогите плизз))

Задача: Что делает данная программа? Какие выходные данные? Что выводит программа в зависимости от выходных данных?

Var
i,f: byte;
n: integer;
a: array [1..10] of integer;
begin
for i=1 to 10 do
begin
a[i]:=random(20) - 10;
writeln(a[i]);
end;
write ('введи число');
readln(n);
i:= 1;
f:= 0;
while (i<=10) and (f=0) do
begin
if a[i]=n then
writeln(i):f:=1
else
i:=i+1;
end;
if f=0 then
writeln('нет');
end.

Заранее спасибо и здоровенный респект