Сортировка массива!

[glebast]

Привет ребята! Это опять я!
Тут еще одна задачка, с которой я не могу справиться.
Помогите решить.
Буду очень благодарен.

Дан массив размера N  и целое число K (1<=K<N). Осуществить
сдвиг элементов массива влево на K позиций (при этом An перейдет
в An-k, An-1 - в An-k-1,..., Ak+1 - в A1, а исходное значение K первых
элементов будет потеряно). Последнее K элементов полученного массива
положить равным 0.

[Mad_Cat]

(**)
program array82;
uses crt;
const N = 10;
var a: array [1..N] of integer;
i:integer;b:integer;
begin
randomize;
for i:=1 to N do
a[i] := Random(100)+1;
writeln('Элементы массива a: ');
for i:=1 to N do
write(a[i],' ');
writeln;
write('k=');
readln(b);
for i:=1 to N-b do
a[i] := a[i+b];
for i:=1+b to N do
a[i] := 0;
writeln('После сдвига влево: ');
for i:=1 to N do
write(a[i],' ');
end.

[glebast]

О спасибо, все работает!
А кстати, а вы не могли бы блок схему сделать, а то я в них вообще никак не разбираюсь.