Ввести с клавиатуры массив из 5 элементов найти максимальный из них

Pascal:

program z1;

var k:array[1 ... 5] of integer;

i, max:integer;

begin

for i:=1 to 5 do

begin

write ('Введите элемент: ') ;

readln (k[i]) ;

end;

max:=k[1];

for i:=1 to 5 do

begin

if (k[i]>max) then max:=k[i]

else max:=max;

end;

writeln ('Max element: ', max) ;

end.