•••Помогите пожалуйста••• Дано натуральное число n (n меньше или равно 9999). Выяснить, верно ли, что это число содержит ровно три одинаковые цифры с учетом четырех цифр, как, например, числа 3363, 4844, 0300 и т.п. ( если не трудно, напишите решение, 9 класс )

Не уверен, что в 9 классе проходят массивы, уточни потом, переделаю, если что.

Program G;
Uses Crt;
Var NumS: Array [1..10] of byte;
    n: integer; count, i, k, equal, truth: byte;
Begin
 ClrScr;
 Truth:=0;
 Writeln(Введите число N (меньше или равное 9999).);
 Repeat
  Readln(N);
  If N>9999 then Writeln(Введено неверное число. Повторите ввод.);
 Until N While N>0 do
  Begin
   Inc(Count);
   NumS[Count]:=N mod 10;
   N:=N div 10;
  End;
 For i:=1 to Count do
  Begin
   Equal:=0;
    For k:=i+1 to Count do
    If NumS[i]=NumS[k] then
     Inc(Equal);
   If Equal=2 then Truth:=1;
  End;
 If Truth=1 then Writeln(В числе совпадает три разряда.)
   Else Writeln(В числе совпадает менее/более трёх разрядов.);
 Readln;
End.