написать программный код! В массиве хранятся результаты 25 спортсменов, участвовавших в лыжной гонке. Программа выводит с компонента ListBox порядковые номера трёх спортсменов, занявшие 1, 2 и 3 призовое место

Длина исходной цепочки символов 61428 равна 5. Она нечетна, значит, из строки удаляем последний символ. Получилось 6142. 
Переставляем символы в обратном порядке. Получилось 2416.
Приписываем справа к цепочке эту же цепочку. Получилось 24162416.
Последний символ цепочки 6 - четная цифра, значит, удаляем его. Получилось 2416241.
Длина исходной цепочки символов 2416241 равна 7. Она нечетна, значит, из строки удаляем последний символ. Получилось 241624.
Переставляем символы в обратном порядке. Получилось 426142.
Приписываем справа к цепочке эту же цепочку. Получилось 426142426142.
Последний символ цепочки 2 - четная цифра, значит, удаляем его. Получилось 42614242614.

1.                                                            

program raf105;

const

 n = 3; //Размер матрицы

var

 ar: array[1..n,1..n] of integer;

 n_sum,a,b,ab_c,min_sum,sum,min_pos,i,j: integer;

begin

write('Введите 2 числа (A, B): ');

readln(a,b);

for i:=1 to n do

begin

 writeln('Заполните столбец ',i);

 for j:=1 to n do

 begin

   readln(ar[i,j]);

   if (ar[i,j] mod a = 0) or (ar[i,j] mod b = 0)

     then ab_c+= 1;

 end;

end;

writeln;

write('А) Суммы нечётных элементов по столбцам: ');

for i:=1 to n do

begin

 n_sum:= 0;

 for j:=1 to n do

 begin

   if ar[i,j] mod 2 <> 0

     then n_sum+= ar[i,j];

 end;

 write(n_sum,' ')

end;

writeln;

writeln('В) Количество элементов кратных ',a,' или ',b,': ',ab_c);

min_sum:= 10000;

sum:= 10000;

for i:=1 to n do

begin

 if sum<min_sum

   then begin

     min_sum:= sum;

     min_pos:= i-1;

   end;

 sum:= 0;

 for j:=1 to n do

   sum+= ar[i,j];

end;

writeln('С) Минимальная сумма элементов у столбца с номером: ',min_pos);

end.

2.                                                            

program raf105;

const

 n = 3; //Размер матрицы

var

 a: array[1..n,1..n] of integer;

 b: array[1..n*n] of integer;

 counter,i,j: integer;

begin

for i:=1 to n do

begin

 writeln('Заполните столбец ',i);

 for j:=1 to n do

 begin

   readln(a[i,j]);

   if a[i,j] mod 3 = 0

     then begin

       counter+= 1;

       b[counter]:= a[i,j];

     end;

 end;

end;

writeln;

write('Массив элементов кратных трём: ');

for i:=1 to counter do

 write(b[i],' ');

end.

                                                             PascalABC 3.4.2