Знатоки информатики,для вас есть задачка.Файл прикреплен!

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandomReal(15,-10,10); a.Println;
  Writeln('Элементов, больших первого, ',
      a.Where(x->x>a[0]).Count)
end.

Пример
1.32138581542363 -7.42206571503639 -8.75516477914302 6.17963798166236 -4.88329186797295 6.02313704603498 -5.68947898023272 -4.43705633023617 2.51164194779081 -3.27493339463833 8.22698325767507 -7.95714398750902 4.07602354608291 -2.3214872238792 4.90172023647545
Элементов, больших первого, 6

program ryazantsev;

var str, newstr: string;

pos,i,k:integer;

begin

newstr:='';

Writeln ('Введите строку с фамилиями');

Readln(str);

for i:=1 to Length(str) do begin

if str[i]=' ' then continue;

if (i=1) or (str[i-1]=' ') then pos:=i

else if (i=Length(str)) or (str[i+1]=' ') then begin

if LowerCase(str[i])=LowerCase(str[pos]) then k:=k+1;

if (i-pos+1) mod 2 <> 0 then newstr:=newstr+Copy(str, pos, i-pos+1)+' '

end

end;

writeln('Количество фамилий начинающихся и заканчивающихся на одну букву: ', k);

writeln('Новая строка: ', newstr)

end.