Ввести натуральное число и определить,верно ли,что сумма его цифр равна 10

uses crt;
var a,x:integer;
 i,s:integer;
begin
 writeln('введите целое число');
 readln( a ); x:=a;
 s:=0;
 while ( x<>0 ) do
 begin
   s := s + (x mod 10);
   x := x div 10;
 end;
 writeln( 'Сумма цифр числа ',a,' = ', s );
 if s=10 then
  writeln('Верно')
  else
  writeln('Неверно');
end.

var a,i,j,s :integer;
St:string;
 
begin
writeln('Wwedite chislo');
readln(St);
for i:=0 to length(St) do begin
val(St[i],j,a);
S:=S+j;
end;
if s=10 then
writeln('summa 10');
readln;
end.

var a1,a2,a3,m :integer;
St:string;
 
function Max(a, b, c:integer): integer;
var maxi:integer;
begin
if a>b then maxi:= a else maxi:=b;
if c>maxi then maxi:=c;
Max:=maxi;
end;
 
begin
writeln('Wwedite chisla');
readln(a1);
readln(a2);
readln(a3);
m:=Max(a1,a2,a3);
writeln(m);
readln;
end.

var i ,ch,nch:integer;
St:string;
mas:array[1..100] of integer;
 
begin
for i:=1 to 20 do
mas[i]:=random(80)+20;
 
for i:=1 to 20 do
if mas[i] mod 2 =0 then ch:=ch+1 else nch:=nch+1;
 
for i:=0 to 20 do
write(mas[i],' ');
 
writeln('chet',ch);
writeln('nechet',nch);
 
readln;
end.