Помогите составить программу ,которая позволяет вводить с клавиатуры элементы массива a[1..10] и числа k1 и k2(1

Ловите на паскале, если будет нужно на другом языке - пишите:
var mass: Array[1..10] of integer;
    i, k1, k2: integer;
begin
for i := 1 to 10 do begin
  write(Введите , i, элемент массива: );
  readln(mass[i]);
end;
write(Введите k1 и k2: );
readln(k1, k2);
writeln(======);
for i := k1 to k2 do begin
writeln(mass[i]);
end;

end.