Вычислить количество элементов массива, меньших С

uses crt;var a:array[1..50]of real;i,b,k:byte;c:real;
begin clrscr;write('C=');readln(c);
write('Size of Array: ');readln(b);writeln('Write Your Array:');
for i:=1 to b do begin read(a[i]);if(a[i]<c)then inc(k);end;
writeln('Count=',k);readkey;end.

uses crt;var a:array[1..50]of real;i,b,k,m:byte;s,z:real;
procedure r1;var i:byte;begin       {Освобождаем место для перемещённого элемента}
for i:=b+1 downto 2 do a[i]:=a[i-1];end;
procedure r2(j:byte);var i:byte;begin   {Удаляем старую версию перемещённого элемента}
for i:=j+1 to b do a[i]:=a[i+1];end;
procedure main(j:byte);begin        {Объединяем всё в одну процедуру}
r1;a[1]:=a[j+1];r2(j);end;
begin clrscr;write('Size of Array: ');readln(b);writeln('Write Your Array:');
for i:=1 to b do begin read(a[i]);if(a[i]<0)then k:=i;
if(i=1)then m:=i else if(a[i]>a[m])then m:=i;end;
for i:=k+1 to b do if(frac(a[i])=0)then s:=s+a[i];z:=a[m];
for i:=1 to b do if(abs(a[i]-z)<=(0.2*z))then main(i);
writeln('Amount=',s:0:2);writeln('Max=',z:0:2);
writeln('20% from Max=',z*0.2:0:2);writeln('Your Array:');
for i:=1 to b do write(a[i]:0:2,' ');readkey;end.