Вывести на экран сумму цифр и количество нечетных цифр в заданном числе

uses crt;
var s: string;
begin
write('s=');
readln(s);
if length(s) mod 2<>0 then delete(s,(length(s) div 2)+1,1);
write('s=',s);
readkey
end.

var
  a:array [1..100] of integer;
  i,k,s,n:integer;  sr:real;
begin
  write('Ââåäèòå ðàçìåðíîñòü ìàññèâà : '); readln(n);
 
  writeln('Ââåäèòå ìàññèâ  : ');
  for i:=1 to n do
  begin
  readln(a[i]);
  if a[i]<>0 then
  begin
  s:=s+a[i];
  inc(k);
  end;
  end;
sr:=s/k;
write('Ñðåäíåå àðèôì. = ',sr);
end.

Uses crt;
 
var n,s,k:integer;
 
Procedure Summa(n:integer; var x,y:integer);
var a:integer;
begin
While n>0 do
    begin
    a:=n mod 10;
    n:=n div 10;
    x:=x+a;
    If odd(a) then inc(y);
    end;
end;
 
begin
   Write('Введите число: ');readln(n);
   Summa(n,s,k);
   Writeln('Сумма цифр = ',s,'.  Кол-во нечетных = ',k);
end.