Проблема с кодом в паскаль

Program ERROR;

Const N=30;

Type T_Mas=Array[1..N+1] of Integer;

Var Mas :T_Mas;

K,X,RAZMER:Integer;

Procedure Init1(Var Kol:Integer;Var M:T_Mas);

Procedure Print1(Kol:Integer; Var M:T_Mas);

Procedure Insert1(Kol,K1,X1:Integer;Var M:T_Mas);

Var I:Integer;

Begin {сдвиг элементов на одну позицию назад}

For I:=Kol DownTo K1+1 Do M[I+1]:=M[I];

M[K1+1]:=X1

End;

Begin

Init1(RAZMER,Mas);

Print1(RAZMER,Mas);

WriteLn('20');

WriteLn ('1');

ReadLn(K,X);

Insert1(RAZMER,K,X,Mas);

Print1(RAZMER+1,Mas);

End.

что не так с этим кодом? (паскаль)

Есть вопросы?

• Как otvet5GPT работает?
  otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

• Сколько это стоит?
  Проект находиться на стадии тестирования и все услуги бесплатны.

• Могу ли я использовать otvet5GPT в школе?
  Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

• В чем отличия от ChatGPT?
  otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.