Найти сумму чисел, оканчивающихся на 1 - Turbo Pascal

Формулировка задачи:

1)Определяет набор чисел, которые разделив 4 на периметра 2)Сумма чисел, оканчивающиеся в 1 на нечетное позиции Помогите пожалуйста срочно решить в Турбо Паскал.

Решение задачи: «Найти сумму чисел, оканчивающихся на 1»

Листинг программы

program sum_1;
var
  a:integer;
  sum,i,n:integer;
  s:string;
begin
  writeln('N: ');
  readln(n);
  sum:=0;
  for i:=1 to n do
    begin
      readln(a);
      str(a,s);
      if odd(length(s)) and (s[length(s)]='1') then
        begin
          sum:=sum+a;
        end;
    end;
  writeln(sum);
  readln;
end.

Объяснение кода листинга программы

Программа начинается с объявления переменных a, sum, i и n типа integer. Также объявлена переменная s типа string.
Выводится сообщение N: для ввода числа n.
Инициализируется переменная sum со значением 0.
Запускается цикл for, который выполняется от 1 до n.
Внутри цикла считывается число a и преобразуется в строку s.
Проверяется условие if odd(length(s)) and (s[length(s)]='1') - если длина строки s нечетная и последний символ строки s равен '1'.
Если условие истинно, то переменная sum увеличивается на значение a.
После завершения цикла for, выводится значение переменной sum.
Программа завершается с помощью команды readln.