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

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.

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

#include <iostream>

#include <vector>

using namespace std;

void solve(){

   int m,n;

   cin >> m >> n;

   vector<vector<int>> a(m,vector<int>(n));

   vector<bool> b(m, true);

   for(int i = 0; i < m; i++)

       for(int j = 0; j < n; j++)

           cin >> a[i][j];

   for(int i = 0; i < m; i++)

       for(int j = 1; j < n; j++)

           if(a[i][j] <= a[i][j-1])

               b[i] = false;

   for(auto i : b) cout << i << " ";

}

signed main(){

   solve();

}

В современных условиях, по утверждению ученых, формируется личность нового типа с высоким уровнем информационных потребностей и запросов. Это обусловлено особенностями исторического развития, изменениями в системе образования.

Забота о воспитании является важнейшей государственной задачей и одновременно привлекает внимание общественных объединений, средств массовой информации, религиозных конфессий.

Все школьные библиотеки должны стать центром общедоступной информации как для обучения, так и для личностного, духовного, творческого развития, самосовершенствования.

Школьная библиотека сегодня должна решать многофункциональные задачи в обществе, и, прежде всего, научить ребенка быть функционально грамотным и востребованным в современном мире.