Выполнить действия с 256-значным числом

var
  a:array [0..1] of string;
  s,s1,s2,s3:string;
  n5, sum,nnodd,sumodd,i,j:integer;
begin
  a[1]:='Да ';a[0]:='Нет';
  readln(s);
  n5:=0;sum:=0;sumodd:=0;nnodd:=0;s1:='';s2:='';
  for i:=1 to length(s) do begin
    if s[i]='5' then inc(n5);
    j:=ord(s[i])-48;
    sum:=sum+j;
    if odd(i) then sumodd:=sumodd+j;
    if not odd(j) then inc(nnodd);
    if (j>0) and (j mod 3>0) then s1:=s1+s[i];
    if s[i]='2' then s2:=s2+'3' else s2:=s2+s[i];
  end;
  s3:='';
  for i:=length(s)downto 1 do s3:=s3+s[i];
writeln('1.посчитайте количество цифр в числе:',length(s));  
writeln('подсчитать, сколько раз в число входит цифра 5:',n5);
writeln('содержит ли данное число 3 подряд идущие цифры - 7 (777):',a[ord(pos('777',s)>0)]);
writeln('вычислить сумму цифр числа:',sum);
writeln('является ли данное число кратным 9:',a[ord(sum mod 9=0)]);;
writeln('подсчитать кол-во чётных цифр:',nnodd);
writeln('вычислить сумму цифр, стоящих на нечётных позициях:',sumodd);
writeln('является ли данное число палиндромом:',a[ord(s=s3)]); 
writeln('получите новое число, удалив из заданного все цифры, кратные 3:',s1);
writeln('получите новое число заменив цифру 2 на цифру 3:',s2);
end.