Выводит 0 вместо максимального числа, почему?

Question

[CoyoteSS]

const n = 1000;
var
i,m: integer;
a: array [1..n] of integer;
l: integer;
function max(k: byte; var max: real): integer;
begin
var i: integer;
max:=0;
for i := 1 to k do
if (a[i] > max) then
  begin
  max:=a[i];
  end;
end;
begin
write('Введите размерность массива: ');
readln(m);
for i:=1 to m do
begin
a[i]:=random(50);
write(a[i],' ');
end;
writeln();
max(m,l);
writeln('Максимальный элемент массива = ',l);
end.

Comments

[dollar]

Здравствуйте, путешественник во времени!
Привет вам из 2019!
Что за язык вы используете? Не похоже на PASCAL, поскольку содержит ряд синтаксических ошибок. В нашем времени такой язык не используется.

[GavriKos]

Что то мне подсказывает, что вы никуда не записываете значение, которое возвращает функция.