в чем ошибка?

[Avvakymova]

program p3;
var a:array[1..10] of integer;
var i,n,max,imax:integer;
procedure d(a:array of integer);
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i],' ');
writeln;
end;
end;
procedure m(a:array of integer);
var i:integer;
begin
max:=a[1];
imax:=i;
for i:=1 to n do
begin
if a[i]>max then
begin
max:=a[i];
imax:=i;
end;
end;
writeln('max=',max);
writeln;
end;
begin
writeln('vvedite n');
readln(n);
d(a);
m(a);
readln;
end.

Почему выдает всегда,что max=0????

[Valio]

Потому что нужно передать ссылку на массив иначе массив не будет заполнятся. Для этого используем директиву var:

procedure d(var a:array of integer);

[Alex11223]

Потому что массив а (который в процедуре) самоуничтожается после ее завершения.

И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении, пожалуйста.

[Вадим Мошев]

Сообщение от Alex11223

Потому что массив а (который в процедуре) самоуничтожается после ее завершения.

И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении, пожалуйста.

ОФФТОП:
Если текст не отформатирован, то тег # не спасёт, а на "голубом" стиле нет подсветки