Где ошибка?

const n=10;

type TMas=array[1 ... n] of integer;

var mas1:TMas;

procedure ImputMas1 (var masTMas: integer) ;

var i: integer;

begin for i:=1 to 10 do

begin

mas1[i]:=random (n) ;

Write (mas1[i]:3) ;

end;

end.

Вот так правильно

Program Massiv;

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;

begin

InputMas1 (mas1) ;

readkey;

end.