из Паскаля в Делфи

[EUgen\96]

Дан массив размера N и целое число K (1 меньше или равен K < N). Осуществить сдвиг элементов массива вправо на K позиций (при этом A1 перейдет в AK+1, A2 — в AK+2, …, AN–K — в AN, а исходное значение K последних элементов будет потеряно). Первые K элементов полученного массива положить равными 0.
Переделайте код на Делфи, пожалуйста.....сегодня через 2 часа сдавать....

program Array81;
var
a: array [1..10] of real;
k,N:integer;
i:integer; // счетчик в цикле
begin
// ввод данных
 writeln('Введите N (N<=10)');
 readln(N);
 writeln('Введите k (k<=N)');
 readln(k);
writeln('Значения массива А');
// формирование исходного массива
for i:=1 to n do begin write('a[',i,']=');readln(A[i]); end;
// решение
for i:=n downto k+1 do
begin
a[i]:=a[i-k];// присвоение значения текущему элементу
end;
for i:=1 to k do
begin
a[i]:=0; // зануление элементов
end;
// вывод результата
Writeln('Ответ');
Writeln;
Write(' A[]: '); for i:=1 to n do Write(A[i],' ');
end.

Или вот вам прога, но чего-то там я недоделал....сам не знаю, может кто-нибудь поможет



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

ALEXandr20333, а зачем надо было клонировать и регистрировать нового пользователя? Или Вы не знаете, что правилами форума это запрещено?!

[EUgen\96]

вот условие:
Дан массив размера N и целое число K (1 меньше или равен K < N). Осуществить сдвиг элементов массива вправо на K позиций (при этом A1 перейдет в AK+1, A2 — в AK+2, …, AN–K — в AN, а исходное значение K последних элементов будет потеряно). Первые K элементов полученного массива положить равными 0.
вто я что-то делал..... сдвиг происходит, но я не знаю как заполнить нулями позиции сдвига...