Через Ввести с клавиатуры двузначное число. Определить, делится ли оно на сумму своих цифр.

В коде программы были ошибки, я их подправил. Вот исправный код:

program pr1;

var s,a:string; i:integer;  //объявляем переменные

begin

   s:='1234';  //исходная строка

   a:='';        //заполняемая строка для вывода

   for i:= length(s) downto 1 do    //от длины исходного списка "s" до 0

       a:=a+s[i]+a;    //добавляем к списку "a" новый символ из списка "s" и после этого символа добавляем строку "a"

   writeln(a)      //выводим список "a"

end.

Этот код берёт из строки s символ и добавляет его в конец строки a и после этого символа добавляет строку а.

Для понимания, что происходит в каждой строке кода, я закоментил прогу.

Если остались вопросы, пишите кометарии, я отвечу.

Вообще то, это задача чисто математическая.  Пусть есть трехзначное число abc.
По условию:

   abc
+ abc

   bca
Понятно, что максимальным число будет, если сложение в двух младших разрядах идет через перенос  ->  получим систему уравнений:
2c = a +16
2b +1 = c + 16
2a + 1 = b
равносильная ей система
2с = a + 16
c = 2b - 15
b = 2a + 1
подставляем третье во второе, получаем первые два уравнения
2с = a + 16
c = 4a - 13   из этих двух уравнений  ->   7a = 42  ->  a = 6  -> из третьего уравнения  b = 13
13 = D(16),   из первого уравнения  с = 22/2 = 11(10) = B(16)
->  abc(16) = 6DB(16) = 1755(10),     DB6(16) = 3510(10)   -> 2abc = bca