помогите с Pascal.пишу программу. 1) определить все цифры в числе! 2)найти все повторяющиеся цифры!

Question

1)program q;
var a,b,m:integer;
begin
writeln('введите m');
readln (m);
b:=0;
while m<>0 do
begin
if m mod 10<>0 then
repeat m:=m+1
until m mod 10 = 0;
a:=1;
else
a:=1
b:=b+a;
m:=m div 10;
end;
end.
выдаёт ошибку Ожидался оператор. что не так?

Дмитрий Пучков · Accepted Answer

Смотри 
a:=1

Татьяна · Answer

подключение библиотек - ГДЕ? 
ДОЛЖЕН БЫТЬ ПОСЛЕ PROGRAM НА СЛЕДУЮЩЕЙ СТРОКИ USES CRT 
И НЕ УЧИТЕ ДЕЛФИ, МОИ СОВЕТ 
 
так как в моде с++ 
 
повторяющиеся можно посчитать перебором либо циклом

Ilya Khangireev · Answer

Точек с запятой не хватает.. . 
Если это ты так повторяющиеся цифры ищешь, то делаешь ты это как-то странно. 
Предлагаю такой вот простой вариант: 
 
var a:array[0..9] of integer; 
j, n:integer; 
begin 
for j:=0 to 9 do a[j]:=0; 
readln(n); 
while n>0 do begin 
inc(a[n mod 10]); 
n:=n div 10; 
end; 
for j:=0 to 9 do if a[j]<>0 then writeln(j, a[j]); 
end.