Изменить программу под Pascal ABC

program p1; 
Const k=10; 
var b:array[1..k] of real; 
d,a:array of real; 
max,x1,y1:real; 
i,index,dindex:integer; 
begin 
randomize; 
for i:=1 to k do 
begin 
b[i]:=random(100); 
end; 
max:=-1000000; 
index:=1; 
for i:=1 to k do 
begin 
if b[i]<i*i*i then 
begin 
if b[i]>=max then 
begin 
max:=b[i]; 
index:=i; 
end; 
end; 
end; 
for i:=1 to k do 
write(b[i]:10:3, ' '); 
writeln(''); 
writeln('Индекс максимального элемента :', index); 
index:=0; 
for i:=2 to k do 
if b[i]>b[i-1] then 
index:=index+1; 
SetLength(d,index); 
dindex:=1; 
for i:=2 to k do 
if b[i]>b[i-1] then 
begin 
d[dindex]:=b[i]; 
dindex:=dindex+1; 
end; 
writeln('Массив D'); 
for i:=1 to dindex do 
write(d[i]:10:3,' '); 
writeln(''); 
x1:=10; 
y1:=13; 
SetLength(a,index); 
for i:=1 to index do 
begin 
if (d[i]<y1) and (d[i]>x1) then 
a[i]:=d[i]*d[i] 
else 
a[i]:=d[i]/2; 
end; 
writeln('Массив A'); 
for i:=1 to dindex do 
write(a[i]:10:3,' '); 
end.

uses crt;
var b,d:array[1..50] of real;
    max,x,z:real;
    k,i,index,f:integer;
begin
randomize;
repeat
write('Введите размер массива от 10 до 50 k=');
readln(k);
until k in [10..50];
writeln('Массив В');
for i:=1 to k do
 begin
  b[i]:=20*random;
  write(b[i]:6:2);
  if i mod 13=0 then writeln;
 end;
writeln;
f:=0;
index:=0;
for i:=1 to k do
if b[i]<i*i*i then
if f=0 then
 begin
  f:=1;
  max:=b[i];
  index:=i;
 end
else if b[i]>max then
 begin
  max:=b[i];
  index:=i;
 end;
writeln('Максимальный элемент меньший куба индекса=',max:0:2,' индекс=',index);
index:=0;
for i:=2 to k do
if b[i]>b[i-1] then
 begin
  index:=index+1;
  d[index]:=b[i];
 end;
if index=0 then writeln('Нет элементов больших левого соседа')
else
 begin
  writeln('Исходный массив D');
  for i:=1 to index do
   begin
    write(d[i]:6:2);
    if i mod 13=0 then writeln;
   end;
  writeln;
  repeat
  writeln('Введите диапазон x<z');
  readln(x,z);
  until x<z;
  writeln('Измененный массив D');
  for i:=1 to index do
   begin
    if (d[i]>x)and(d[i]<z) then d[i]:=sqr(d[i])
    else d[i]:=d[i]/2;
    write(d[i]:7:2);
    if i mod 11=0 then writeln;
   end;
 end;
 
end.