В паскале.В массиве из 10 целых чисел найти, сколько значений превосходит

var
   i, x : integer;                         // объявляем переменные целочисленного типа.
   arr : array [1..10] of integer; // объявляем массив.
   s : string;                             // объявляем переменную строкового типа.
Begin
   for i := 1 to 10 do    // начало цикла.
     begin            
       arr[i] := random (-100, 100);     // наполняем массив числами из спектра -100; 100.
       s := s + arr[i] + ;                   // записываем элементы массива в одну строчку.
       if (arr[i] gt; 3) then x := x + 1;   //считаем количество частей массива больше трёх.
     end;
 write (Массив: , s);     // вывод массива на экран.
 writeln;                       // переход на последующую строчку.
 write (Количество элементов в массиве больше 3-х одинаково: , x);    //вывод на экран строчки.
End.