Решить на тему "одномерные массивы" на языке pascal. сама : найдите количество элементов массива,меньше квадрата своего номера.

Var b,c,d: integer;
a:array [1..100] of integer;
begin
    d:=0;
        for c:=1 to  10 do begin
        a[c]:=random(50);
          if sqr(c)>a[c] then d:=d+1;
          writeln(c,'-->',a[c]);   
        end;
   writeln('количество ',d); 
end.