Последовательности Паскаль

uses crt;
  procedure Maxel(a:longint; var kolod,maxch:integer);
    var vp,b,i0,i1,i2,i3,i4,i5,i6,i7,i8,i9:integer;
        ost:byte;
    begin
       b:=a;
       vp:=0;
       i0:=0;  i5:=0;
       i1:=0;  i6:=0;
       i2:=0;  i7:=0;
       i3:=0;  i8:=0;
       i4:=0;  i9:=0;
       while a<>0 do
        begin
          ost:=a mod 10;
          a:=a div 10;
          case ost of
            0: begin inc(i0); if (i0>vp) then vp:=i0; end;
            1: begin inc(i1); if (i1>vp) then vp:=i1; end;
            2: begin inc(i2); if (i2>vp) then vp:=i2; end;
            3: begin inc(i3); if (i3>vp) then vp:=i3; end;
            4: begin inc(i4); if (i4>vp) then vp:=i4; end;
            5: begin inc(i5); if (i5>vp) then vp:=i5; end;
            6: begin inc(i6); if (i6>vp) then vp:=i6; end;
            7: begin inc(i7); if (i7>vp) then vp:=i7; end;
            8: begin inc(i8); if (i8>vp) then vp:=i8; end;
            9: begin inc(i9); if (i9>vp) then vp:=i9; end;
          end;
           if vp>kolod then
            begin
              kolod:=vp;
              maxch:=b;
            end;
        end;
    end;
    var a:longint;
      maxch,kolod:integer;
   BEGIN
    ClrScr;
    kolod:=0;
    maxch:=0;
    writeln('Vvedite posledovatelnost:');
    readln(A);
    while (A<>99999) do
      begin
        Maxel(A,kolod,maxch);
        readln(A);
      end;
    if maxch=0 then writeln('posled. pusta')
               else writeln('Chislo ravno ',maxch);
    readkey;
   END.