[Bargest]

Работает:

Код:

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a:array[0..9]of integer;
    i:integer;
    s:AnsiString;

begin
s:='0123450670';
for i:=1 to length(s) do
 inc(a[strtoint(s[i])]);
writeln(a[0]);
readln;
end.

Прошу прощения, там не I:array... а A:array