Дан массив целых чисел

Кодом паскаля 1 var a: array[1… 100] of integer; 2 i,n,s,b,f: integer; 34: =05 write ('Введите размер массива: '); 6 readln (n); 7 writeln ('Исходный массив: '); 8 for i: =1 to n do begin9 a[i]: =random (20) -10; 10 write (a[i],'); 11 end; 12 writeln; 13 write ('Введите число: '); 14 readln (b); 15 for i: =1 to n do begin16 if bb: ',f) end.