Дана последовательность, состоящая из двух цифр? 12. К этой последовательности Незнайка

program zz1;
var s:string;
i,k,p:integer;
begin
s:=12; // задаем изначальное значение последовательности
for k:=1 to 6 do // организуем шестикратное повторение
begin
for i:=length(s) downto 1 do // организуем зеркальное отражение последовательности
s:=s+s[i];
for i:=1 to length(s) do // организуем увеличение числа на единицу, стоящего на четной позиции считая слева вправо
if i mod 2 =0 then s[i]:=chr(ord(s[i])+1);
end;
writeln(s); // выводим полученную последовательность
for i:=1 to length(s) do
if (ord(s[i])-48) mod 2 = 0 then p:=p+(ord(s[i])-48);
write( сумма четных цифр последовательности = , p);
end.