Функция с массивом.

[Андрей Коршов]

type mas=array [1..5] of integer;
var  u:mas;i:integer;
function k(l:mas;y:integer):mas;
begin
for i:=1 to 5 do l[i]:=l[i]*y;
k:=l[i];
end;
begin
for i:=1 to 5 do readln (u[i]);
u:=k(u,5);
for i:=1 to 5 do writeln (u[i]);
readln;
end.

Что здесь не так??Компилятор выдает ошибку 34.

[Mad_Cat]

type mas=array [1..5] of integer;
var  u:mas;i:integer;
function k(l:mas;y:integer):mas;
begin
for i:=1 to 5 do l[i]:=l[i]*y;
k:=l;
end;
begin
for i:=1 to 5 do readln (u[i]);
u:=k(u,5);
for i:=1 to 5 do writeln (u[i]);
readln;
end.