количество элементов массива, больших С ( Delphi )

[Kagero]

В одномерном массиве, состоящем из п вещественных элементов,
вычислить:
1) количество элементов массива, больших С;
2) произведение элементов массива, расположенных после максимального
по модулю элемента.
Преобразовать массив таким образом, чтобы сначала располагались все
отрицательные элементы, а потом – все положительные (элементы, равные
нулю, считать положительными).

Помогите разобраться хотя бы с 1-м пунктом.Что именно я сделал не так ?
придирается к "(‘kolichestvo=’,k)".Пишу на Делфи.

program Project2;

{$APPTYPE CONSOLE}

Var
  a:array[1..10] of real;
  i,n,s,c,k:integer;
  

begin
  { TODO -oUser -cConsole Main : Insert code here }
  k:=0;
  For i:=1 to 10 do
  if a[i] > c then
  k:= k+1;
  Write(‘kolichestvo=’,k);
  readln(k);
  end;

[Stilet]

Что именно я сделал не так ?

Да все так. Другое дело что в коде массив никак не вводится...

[xoodoo]

придирается к "(‘kolichestvo=’,k)"

Кто посмел ?)

[artbotva]

Ну может write надо было писать writeln? И там вроде скобка не закрыта

[Пепел Феникса]

а как придерается то?

а то кавычки какие то странные, явно не апострофы.

[Serge_Bliznykov]

согласен с мнением Пепла Феникса. так и есть (я проверил)

замените данный кусочек кода на такой:

  Write('kolichestvo=',k);

Kagero, задумайтесь над тем, что в массиве a и в переменной C, в лучшем случае, будут нули, в худшем - мусор!
Нужно обеспечить заполнение массива значениями. и ввод C

можно запросить у пользователя.
например, так:

begin
  for i:=1 to 10 do begin
    Write('Enter ',i,' element of array: ');
    ReadLn(a[i]);
  end;

  Write('Enter value of C:');
  ReadLn(C);
...

[Stilet]

замените данный кусочек кода на такой:

Скажу по секрету - похоже что это форум так воспринимает ковычки, или какой либо просмотрщик, ибо это не первый код, где именно в таком виде кавычки.
Возможно автор писал пост в Ворде, а он любит заменять символы на скажем так резные-прописные-узорчатые.