Определить, равна ли сумма цифр длине строки

uses crt;
var s:string; v,i,code,lng,sum:integer;
begin
      writeln('s:');
      readln(s);
      for i:=1 to 2 do
      begin
           val(s[i],v,code);
           sum:=sum+v;
           v:=0;
      end;
      for i:=length(s) downto length(s)-1 do
      begin
           val(s[i],v,code);
           sum:=sum+v;
           v:=0;
      end;
      lng:=length(s);
      if lng = sum then writeln('сумма цифр (',sum,') равна длине строки (',lng,')')
      else
      writeln('Сумма цифр (',sum,') не равнв длине строки (',lng,')');
end.

uses crt;
var s:string; v,i,code,lng,sum:integer;
 
procedure summa(s:string; var sum:integer);
var v,code,i:integer;
begin
     for i:=1 to 2 do
     begin
                val(s[i],v,code);
                sum:=sum+v;
                v:=0;
     end;
     for i:=length(s) downto length(s)-1 do
     begin
                val(s[i],v,code);
                sum:=sum+v;
                v:=0;
     end;
end;
procedure lengtth(s:string;sum:integer);
var lng:integer;
begin
      lng:=length(s);
      if lng = sum then writeln('сумма цифр (',sum,') равна длине строки (',lng,')')
      else
      writeln('Сумма цифр (',sum,') не равнв длине строки (',lng,')');
end;
      
begin
     writeln('введите строку:');
     readln(s);
     summa(s,sum);
     lengtth(s,sum);
end.