[lxa85]

Desvi, прокомментируй код пожалуйста.
Т.к. не совсем понятно что и где ты хочешь сделать.
Прости, но пока это больше похоже на набор бессвязных команд.

uses crt;
var
a: file of integer;
i: byte;
mas:array[1..100] of integer;
n:integer;
begin
assign(a,'file.bin');
reset(a); // что делает reset?
clrscr;
writeln ('Vvedite kol-vo elementov ');
readln (n);
writeln('vvedite zna4enie massiva: ');

for i:=1 to n do
write('a[',i,'] = '); // при данном расположении операторных скобок (begin, end) write - единственный оператор, который будет выполнятся в цикле for
readln(a[i]); //что и откуда читаем? Вопрос кстати не праздный
end; // к чему относится этот end?

begin //этот begin тоже не понятен. Что хоть тут происходит, или что должно происходить?
read(a,mas[i]);
write(mas[i],' ');
end;

close(a);
end.