Дан массив Т1…T13. Посчитать количество отрицательных элементов массива с четными индексами (n Если n<7 все элементы с нечетными индексамиувеличить на 10, иначе все элементы с четными индексамиумножить на nНа Delphi

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

begin
  var (s,x):=(ReadlnString('Введите число, можно нецелое:'),0.0);
  if TryStrToFloat(s,x) then
    if s.Where(c-> c in ['0'..'9']).Select(c->c.ToDigit).Sum mod 10=5
    then Writeln('Сумма цифр заканчивается на 5')
    else Writeln('Сумма цифр не заканчивается на 5')
  else Writeln('Неверное представление числа')
end.

Примеры
Введите число, можно нецелое: -3532175
Сумма цифр не заканчивается на 5

Введите число, можно нецелое: 0.02432413
Сумма цифр не заканчивается на 5

Введите число, можно нецелое: -13.05360214
Сумма цифр заканчивается на 5

Введите число, можно нецелое: 1.23007e-31
Сумма цифр не заканчивается на 5