Одномерные массивы. Найти количество элементов массива, больших квадрата первого элемента этого массива. Если таких элементов нет, выдать сообщение поиск неудачен.

program abc; const   arr: array [1..5] of integer = (5, 5, 26, 5, 30); var   i, x: integer; begin    x := 0;    for i := 2 to length(arr) do    begin      if sqr(arr[1]) < arr[i] then inc(x);    end; if x <> 0 then writeln(x)    else writeln('Поиск неудачен.'); end.