Паскаль массивы

[Александр Дубень]

Помогите найти ошибку.
Условие:
Составьте программу, которая позволяет вводить с клавиатуры элементы массива a[1..10] и числа k1 и k2(1<=k1<k2<=10) , а затем выводит на экран в одну строку элементы массива с индексами от k1 до k2
Моя программа:
program trololo;
var a:array [1..10] of integer;
i, k, k1, k2: integer;
begin
writeln ('Введите элементы массива ');
for i:=1 to 10 do
readln(a[i]);
begin
writeln ('Введите число k1');
readln(a[i]);
writeln(' Введите число k2') ;
readln (a[i]);
end;
k1:=1;
k2:=1;
while k1>=0 do
while k2<=10 do
begin
write (a[k1-k2], ' ');
end;
end.

[BDA]

program trololo;

var
  a: array [1..10] of integer;
  i, k1, k2: integer;

begin
  writeln('Введите элементы массива ');
  for i := 1 to 10 do
    read(a[i]);{введите все элементы через пробел и нажмите ентер}
  writeln('Введите число k1');
  readln(k1);
  writeln('Введите число k2');
  readln(k2);
  for i := k1 to k2 do
    write(a[i], ' ');
  readln;
end.

[Александр Дубень]

Спасибо большое

[NinaSSS]

program 111;

var
a: array [1..10] of integer;
i, k1, k2: integer;

begin
writeln('Ââåäèòå ýëåìåíòû ìàññèâà ');
for i := 1 to 10 do
read(a[i]);{ââåäèòå âñå ýëåìåíòû ÷åðåç ïðîáåë è íàæìèòå åíòåð}
writeln('Ââåäèòå ÷èñëî k1');
readln(k1);
writeln('Ââåäèòå ÷èñëî k2');
readln(k2);
for i := 1 to 10 do
if ( a[i]> k1) and ( a[i]> k1) then
write(a[i], ' ');
readln;
end.