Найти количество цифр заданного числа

uses crt;
var a,max:real;
    n,i:integer;
begin
clrscr;
write('Сколько чисел ввести? n=');
readln(n);
writeln('Введите ',n,' отрицательных чисел:');
readln(max);
for i:=2 to n do
 begin
  readln(a);
  if a>max then max:=a;
 end;
if max>=0 then write('Вы вводили неотрицательные числа')
else write('Максимальное=',max:0:1);
readln
end.

var
   b,a,i,x,n,q,w,e:integer;
begin
     write('ââåäèòå À=');readln(a);
     write('ââåäèòå B=');readln(b);
     i:=100;
     repeat
           e:=i;
           q:=e mod 10;
           e:=e div 10;
           w:=e mod 10;
           e:=e div 10;
           x:=q+w+e;
           if (x=a) and (e mod b=0) then writeln(i);
           i:=i+1;
     until i=1000;
end.

uses crt;
var a,b,i,k:integer;
begin
clrscr;
write('Введите число-предполагаемую сумму цифр трехзначного числа A=');
readln(a);
write('Введите число для проверки кратности B=');
readln(b);
k:=0;
for i:=100 to 999 do
if((i div 100)+(i div 10 mod 10)+(i mod 10)=a)and(i mod b=0)then
 begin
  k:=1;
  write(i,' ');
 end;
if k=0 then write('Таких чисел нет!');
readln
end.

uses crt;
var n:longint;
    k:byte;
begin
clrscr;
write('n=');
readln(n);
if n<0 then n:=abs(n);{если отрицательное}
k:=0;
while n>0 do
 begin
  n:=n div 10;
  k:=k+1;
 end;
write('Количество цифр=',k);
readln
end.

uses crt;
const nmax=100;
var a:array[1..nmax] of real;
    n,i:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=10*random-5;
  write(a[i]:5:1);
 end;
writeln;
writeln;
writeln('Измененный массив:');
for i:=1 to n do
 begin
  if a[i]<0 then a[i]:=a[i]+0.5
  else a[i]:=0.1;
  write(a[i]:5:1);
 end;
readln
end.