Cho mảng A có n phần tử. Nhập số k. Viết chương trình chuyển k phần tử từ đầu dãy về cuối dãy (Dùng file) #Pascal

var f2,f1:text;
a,b,c:array[1..10000] of integer;
i,j,n,k:integer;
procedure nhap;
begin
assign(f1,'baitap.inp');
reset(f1);
read(f1,n,k);
for i:=1 to n do read(f1,a);
close(f1);
end;
procedure xuly;
begin
for i:=1 to k do b:=a;
j:=1;
for i:=k+1 to n do
begin
c[j]:=a;
inc(j);
end;
i:=1;
while (i<=k) do
begin
a:=c;
inc(i);
end;
j:=n-k+1;i:=1;
while (j<=n) do
begin
a[j]:=b;
inc(i);inc(j);
end;
end;
procedure xuat;
begin
assign(f2,'baitap.out');
rewrite(f2);
for i:=1 to n do writeln(f2,a);
close(f2);
end;
begin
nhap;
xuly;
xuat;
end.

uses crt;
var n,i,k:longint; d:text; a:array[1..1000]of longint;
begin
clrscr;
assign(d,'input.pas');reset(d);
readln(d,n,k);
for i:=1 to n do read(d,a[i]);
close(d);
assign(d,'output.pas'); rewrite(d);
   for i:=k+1 to n do write(d,a[i],' ');
   for i:=1 to k do write(d,a[i],' ');
close(d);
readln
end.