Вывести на экран количество и значение элементов в дробной части которых есть цифра 5

function Check(const x: Real): Boolean;
var
    Result: Boolean;
    s: String;
    i: Byte;
begin
    Str(x:0:100, s); Delete(s, 1, Pos('.', s));
    i := 1;
    repeat
        Result := (s[i] = '5');
        Inc(i);
    until ((Result) Or (i > Length(s)));
    Check := Result;
end;
var
    ar: Array[Byte] Of Real;
    count, n, i: Byte;
begin
    repeat
        Write('How much elements (>0)? ');
        ReadLn(n);
    until (n > 0);
    for i := 0 to n - 1 do
    begin
        Write('ar[', i + 1, ']=');
        ReadLn(ar[i]);
    end;
    count := 0; WriteLn;
    for i := 0 to n - 1 do
        if (Check(ar[i]))
        then
        begin
            Inc(count);
            Write(' ', ar[i]:0:5);
        end;
    WriteLn; Write('Total count: ', count);
end.

function Check(const x: Real): Boolean;
var
    s: String;
begin
    Str(x:0:100, s); Delete(s, 1, Pos('.', s)); Check := Pos('5', s) > 0;
end;

uses strutils;
function Check(const x: Real): Boolean;
var s: String;
begin
    Str(x:0:100, s); Pos('.', s) < RPos('5', s);
end;

uses strutils;
function Check(const x: Real): Boolean;
var s: String;
begin
    Str(x:0:100, s); PosEx('5', s, Pos('.', s)) > 0;
end;