Pascal ABC Имеется массив целых чисел размером N (задаётся константой в

Const n = 10;
var
mas:array [1..n] of integer;
i,x,j,a,b,index:integer;
begin
write('Введите спектр от a до b: ');
readln(a,b);
for i:= 1 to n do
begin
mas[i]:=Random(b-a+1)+a;
end;
writeln('Полученный массив: ');
for i:= 1 to n do
 write(mas[i]:4);
for i:=n downto 1 do
if mas[i]gt;0 then
begin
 index:=i;
 break
end;
mas[index]:=mas[2];
writeln;
writeln('Итог выполнения задания: ');
for i:= 1 to n do
 write(mas[i]:4);
readln
end.

Введите диапазон от a до b: 10 40
Приобретенный массив:
  25  13  38  31  39  12  16  11  26  33
Итог выполнения задания:
  25  13  38  31  39  12  16  11  26  13