Где ошибка??

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.

     

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

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 MassivUses 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.

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