Ошибка при вводе значений массива - Pascal ABC

Формулировка задачи:

Окей, задача звучит так: Найти номер наименьшего элемента в массиве, заданного датчиком случайных чисел на интервале [-20, 25]. Размер произвольный. То, что получилось, видите ниже. Выдает аж 5 незнакомых мне ошибок, вообще без понятия, что с ними делать, помогите пожалуйста

program pomogite_pojaluista;
const n=10;
var b: integer; c: array [1..n] of integer;
begin
randomize;
for c:= 1 to n do
begin
c[i] := random(-20,26);
writeln ('c[', i, ']=', c[i])
end;
b:=c[1];
for i:=2 to n do
begin
If c[i]<b then b:=c[i];
end;
writeln(b);
end.

Решение задачи: «Ошибка при вводе значений массива»

textual
                            Листинг программы 
                        

                            const n=10;
var i,b,ib: integer;
    c: array [1..n] of integer;
begin
randomize;
for i:=1 to n do
 begin
   c[i]:=-20+random(46);
   write(c[i]:4);
 end;
writeln;
b:=c[1];
ib:=1;
for i:=2 to n do
if c[i]<b then
 begin
  b:=c[i];
  ib:=i;
 end;
writeln('Минимальный элемент=',b,' его номер=',ib);
end.
                        