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

program xxx;
 
uses
  crt;
 
const
  n = 50;
 
var
  a: array [1..n] of real;
  i, c, col: integer;
 
begin
  writeln('Введите число С');
  readln(c);
  for i := 1 to n do
  begin
    a[i] := Random(50);
    Write(a[i], ' ');
    if a[i] > c then
      inc(col);
  end;
  writeln;
  writeln('Кол-во числе больших заданого:  ', col);
  readln;
end.

program doit;
 
uses
  crt;
 
var
  A: array [1..10] of integer;
  i, max, maxi, proizv: integer;
 
begin
  for i := 1 to 10 do
  begin
    A[i] := random(50) - 25;
    Write(A[i]:4)
  end;
  writeln;
  max := A[1];
  maxi := 1;
  for i := 2 to 10 do
  begin
    if max < abs(A[i]) then
    begin
      max := abs(A[i]);
      maxi := i;
    end
  end;
  writeln( 'Номер максимума равен ', maxi);
  proizv := 1;
  for i := maxi + 1 to 10 do
    proizv := proizv * a[i];
  writeln( 'Ответ: ', proizv);
  readln;
end.

program ps5;
 
uses
  crt;
 
var
  i, j, k: integer;
  A: array[1..100] of integer;
 
begin
  for i := 1 to 100 do
  begin
    A[i] := random(20) - 10;
    Write(A[i]:4);
  end;
  Writeln;
  for i := 1 to 99 do
  begin
    for j := i + 1 to 100 do
    begin
      if A[i] > A[j] then
      begin
        k := A[i];
        A[i] := A[j];
        A[j] := k;
      end;
    end;
  end;
  writeln('Отсортированный массив'); 
  for i := 1 to 100 do
  begin
    write(A[i]:4);
  end;
  readln;
end.

program ps5;
 
uses
  crt;
 
var
  i, j, k: integer;
  A: array[1..100] of integer;
 
begin
  for i := 1 to 100 do
  begin
    A[i] := random(20) - 10;
    Write(A[i]:4);
  end;
  Writeln;
  for i := 1 to 99 do
  begin
    if A[i] >= 0 then
    begin
      for j := i to 100 do
        if a[j] < 0 then
          break;
      k := A[i];
      A[i] := A[j];
      A[j] := k;
    end;
  end;
  writeln('Отсортированный массив'); 
  for i := 1 to 100 do
  begin
    write(A[i]:4);
  end;
  readln;
end.