Помогите пожалуйста!!!Даны действительные числа a1,....,an (namp;lt;=150) удалить из

Var 
a:array of real;
n,i,j:integer;
begin
Randomize;
write('n = ');
readln(n);
writeln('Начальный массив:');
SetLength(a,n);
for i:=0 to n-1 do
  begin
   a[i]:=10*random;
   write(a[i]:6:2);
  end;
writeln;
for j:=n div 4 downto 1 do
 begin
 for i:=4*j to Length(a)-1 do a[i-1]:=a[i];
 SetLength(a,Length(a)-1);
 end;
for i:=0 to Length(a)-1 do write(a[i]:6:2);
writeln;
end.

Пример:
n = 15
Начальный массив:
  8.17  9.96  5.06  9.34  2.91  7.37  3.64  7.22  2.83  3.04  2.02  9.09  0.32  5.10  9.35
  8.17  9.96  5.06  2.91  7.37  3.64  2.83  3.04  2.02  0.32  5.10  9.35

include lt;iostreamgt;
include lt;iomanipgt;
using namespace std;

int main()
   int n,x;
   coutlt;lt;"n = ";  cingt;gt;n;
   float a[n];
   srand(time(NULL));
   for (int i=0; ilt;n; i++)  
      a[i]=(rand()%100);
      a[i]/=10;
      coutlt;lt;a[i]lt;lt;" ";
   
   coutlt;lt;endl;
   int i=3;
   while (ilt;n)
      for (int j=i; jlt;n-1; j++)  a[j]=a[j+1];      
      n--; 
      i+=3;
        
   for (int i=0; ilt;n; i++) coutlt;lt;a[i]lt;lt;" ";
   coutlt;lt;endl;
   system("pause");
   return 0;