массивы

[Voldemort93]

помогите пожалуйста Написать программу! Условие:
переставить в обратном порядке часть массива между
элементами с номером k1 и k2, включая их. Сделать проверку корректности ввода k1 и k2, если ввод не правильный, то ничего не делать.

заранее Спасибо за помощь.

[Mad_Cat]

const n=5;
var a:array[1..n] of Integer;
    k1,k2,i,r:Integer;
    f:Boolean;
begin
  Randomize;
  writeln('   -=YouR OlD ArraY=-');
  for i:=1 to n do begin
    a[i]:=random(15)+2;
    write(a[i]:4);
  end;
  Writeln;
  Write('k1=');
  readln(k1);
  Write('k2=');
  readln(k2);
  f:=true;
  if (k1<1) or (k2<1) or(k1>n) or (k2>n)  then f:=False;
  if k1>=k2 then f:=False;
  r:=k2-k1;
  if Odd(r) then r:=r div 2 +1
  else r:=r div 2;
  if f then begin
    for i:=k1 to k1+r-1 do
      begin
        a[i]:=a[i]+a[k2];
        a[k2]:=a[i]-a[k2];
        a[i]:=a[i]-a[k2];
        dec(k2);
      end;
      writeln;
      writeln('    -=New ArraY=-');
      for i:=1 to n do begin
        write(a[i]:4);
      end;
  end
  else Writeln('Array is not changed');
  Readln;
end.

Ручной ввод массива и размерности

uses crt;
var a:array[1..100] of Integer;
    k1,k2,i,r:Integer;
    f:Boolean;
    n:Integer;
begin
  write('n=');
  readln(n);
  for i:=1 to n do
  begin
    Write('[',i,']=');
    readln(a[i]);
  end;
  clrscr;
  writeln('   -=YouR OlD ArraY=-');
  for i:=1 to n do begin
    write(a[i]:4);
  end;
  Writeln;
  Write('k1=');
  readln(k1);
  Write('k2=');
  readln(k2);
  f:=true;
  if (k1<1) or (k2<1) or(k1>n) or (k2>n)  then f:=False;
  if k1>=k2 then f:=False;
  r:=k2-k1;
  if Odd(r) then r:=r div 2 +1
  else r:=r div 2;
  if f then begin
    for i:=k1 to k1+r-1 do
      begin
        a[i]:=a[i]+a[k2];
        a[k2]:=a[i]-a[k2];
        a[i]:=a[i]-a[k2];
        dec(k2);
      end;
      writeln;
      writeln('    -=New ArraY=-');
      for i:=1 to n do begin
        write(a[i]:4);
      end;
  end
  else Writeln('Array is not changed');
  Readln;
end.

[Voldemort93]

надо на паскале!