Объясните в чем ошибка пишет неизвестное имя типа mas - Pascal

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

Procedure INIT
(var d:mas)
var t:byte;
begin
writeln('vvedite ',n,' elementov');
for I:= 1 to 30 do
readln(D[i]=random(60)-20
end;

Решение задачи: «Объясните в чем ошибка пишет неизвестное имя типа mas»

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

var
  a, i, Sum, n: integer;
  Sred: real;
 
begin
  Sum := 0;
  write('N? ');
  readln(n);
  for i := 1 to n do
  begin
    Write('a = ');
    ReadLn(a);
    Sum := Sum + a;
  end;
  Sred := Sum / n;
  Writeln('S = ', Sred:6:2);
end.

Объяснение кода листинга программы

Объявляются переменные: a (целочисленная), i (целочисленная), Sum (целочисленная), n (целочисленная) и Sred (вещественная).
Обнуляется переменная Sum.
Выводится сообщение N? для запроса ввода значения переменной n.
Вводится значение для переменной n.
Запускается цикл для значений i от 1 до n.
Для каждого значения i выполняется следующее:
1. Выводится сообщение a = для запроса ввода значения переменной a.
2. Значение вводится для переменной a.
3. К переменной Sum прибавляется значение a.
Вычисляется среднее значение, присваивая его переменной Sred.
Выводится результат, содержащий значение Sred с шестью цифрами в целой части и двумя в дробной: S = значение Sred.