Дан массив к(5) опишите этот массив и заполните его с клавиатуры

Uses crt;
var
i: integer;
k: array [1..5] of real;
begin
clrscr;
writeln ('Input array:');
for i:=1 to 5 do
begin
write (i,') ');
readln (k[i]);
end;
writeln ('Your array:');
for i:=1 to 5 do
write (k[i],' ');
readln ();
end.