Задание с рекурсией

const k=100;
type arr=array[1..k] of integer;
procedure gen(i:integer; const k: integer; var x: arr);
begin
  if i <= k
  then begin
    x[i] := random(100);
    write(x[i]:3);
    gen(i + 1, k, x)
  end
  else writeln
end;
 
procedure rprn(k:integer;n:integer;var x:arr);
//k-индекс элемента, n-до куда делать реверс, x-массив
var c:integer;
begin
if k=1 then
 begin
  c:=x[1];
  x[1]:=x[n];
  x[n]:=c;
 end;
if k<=n div 2 then rprn(k+1,n,x);
end;
function Min(n:integer;x:arr):integer;
//n-размер массива  x-массив
var w:integer;
begin
if n>1 then
 begin
  w:=Min(n-1,x);
  if x[n]>x[w] then Min:=w
  else  Min:=n;
 end
else Min:=1;
end;
var a: arr;
    n,b,r: integer;
begin
repeat
write('Введите кол-во элементов от 10 до 100 n=');
readln(n);
until n in [10..100];
repeat
write('Введите число элементов для реверса от 2 до ',n-1,' b=');
readln(b);
until b in [2..n-1];
randomize;
gen(1,n,a);
rprn(1,b,a);
writeln('Реверс элементов c первого по номер ',b);
for b:=1 to n do
write(a[b]:3);
writeln;
write('Последний минимальный элемент=',a[Min(n,a)],' его индекс=',Min(n,a))
end.

procedure swap(var a, b : Integer);
var t : integer;
begin t := a; a := b; b := t; end;
 
procedure invrec(var a : ta; start, finish : integer);
begin
  if start < finish then
  begin
    swap(a[start], a[finish]);
    invrec(a, start + 1, finish - 1);
  end;
end;

const n = 20;
 
procedure invrec(var a : array of integer; start, finish : integer);
begin
  if start < finish then
  begin
    swap(a[start], a[finish]);
    invrec(a, start + 1, finish - 1);
  end;
end;
 
begin
  var mas := ArrRandomInteger(n);
  mas.PrintLn;
  
  var k := ReadInteger('Введите до какого элемента инвертировать: ');
  
  invrec(mas, 0, k-1);
  
  WriteLn('Массив после инвертирования:');
  mas.Println;
  
end.

Program Lifelover;
 
Const n = 20;
 
Procedure invrec (var a: array of integer; start, finish: integer);
 
  begin
    if start < finish then
      begin
        swap(a[start], a[finish]);
        invrec(a, start + 1, finish - 1);
      end;
  end;
 
Var
  mas: array [1..20] of integer;
  i, k: integer;
 
begin
  for i := 1 to 20 do
    begin
      mas[i] := random (1, 99);
      write (mas[i]:3)
    end;
  
  write ('Введите до какого элемента инвертировать: ');
  read(k);
  
  invrec (mas, 0, k-1);
  
  WriteLn('Массив после инвертирования:');
  
  for i := 1 to 20 do
    begin
      write (a[i]:3)
    end;
end.

Program Lifelover;
 
Const n = 20;
 
type tmas = array [1..n] of integer;
 
Procedure invrec (var a: tmas; start, finish: integer);
 
  begin
    if start < finish then
      begin
        swap(a[start], a[finish]);
        invrec(a, start + 1, finish - 1);
      end;
  end;
 
Var
  mas : tmas;
  i, k: integer;
 
begin
  for i := 1 to n do
    begin
      mas[i] := random (1, 99);
      write (mas[i]:3)
    end;
  Writeln;  
  
  write ('Введите до какого элемента инвертировать: ');
  read(k);
  
  invrec (mas, 1, k);
  
  WriteLn('Массив после инвертирования:');
  
  for i := 1 to n do
      write (mas[i]:3);
  WriteLn;
  
end.