Як отримати частину списку ? Поясніть на прикладах​

#include "iostream"

#include "stdlib.h"

using namespace std;

int main(){

int N;//êîëè÷åñòâî ÷èñåë

int a;//î÷åðåäíîå ÷èñëî

int s;//ñóììà äâóõ ïîñëåäíèõ öèôð

int d[18];//ïîäñ÷åò ñóìì

int mx;//ìàêñèìàëüíî êîëè÷åñòâî ñóìì

int imx;//ñàìàÿ ÷àñòàÿ ñóììà

int i;  

for (i = 0; i < 18; i++){

 d[i] = 0;

}

cin >> N;

for(i = 1; i < N; i++){

 cin >> a;

 s = a % 10 + a / 10 % 10;

 d[s] = d[s] + 1;

}

mx = 0;

for(i = 0; i < 18; i++){

 if(d[i] >= mx){

  mx = d[i];

  imx = i;

 }

}

cout << imx << endl;

system("pause");

return 0;

}

Ну так во первых  обяъвление процедуры должно быть

procedure InputMas1(var mas1:Tmas );

 во вторых ты забыл  end;  т.е 

begin
for i:=1 to 10 do
      begin
           mas1[i]:=random(n);
           Write(mas1[i]:3);
     end;

 end; {забытый end}

в третьих ты  не написал основную прграмму т.е забыл begin и не вызвал процедуру 

InputMas1

begin

     clrscr;
     InputMas1(mas1);

     readkey;
end. 

 Итого прога должна выглядеть примерно так

program Massiv
Uses Crt;
const n=10;
type TMas=array[1..n] of integer;
var mas1:TMas;

procedure InputMas1(var mas1:TMas);
var i:integer;

begin
     for i:=1 to 10 do
        begin
        mas1[i]:=random(n);
        Write(mas1[i]:3);
       end;
end;
{Основная прога}
begin
clrscr;
InputMas1(mas1);
readkey;
end.

Держи ! Пользуйся на здоровье и будь внимательнее.