подсчитать количество единиц входящий в текст

[LILI26092009]

вы не могли бы помочь написать программу в Delphi 7?
нужно подсчитать количество единиц входящий в текст

[Stilet]

Примерно так:

uses classes;
...
var s:TStringList;c,i:integer;
begin
 s:=TStringList.Create;
 s.LoadFromfile('файл');c:=0;
 for i:=1 to length(s.text) do if s.text[i]='1' then inc(c);
 s.free;
 write(c);readln;
end.

и нечего лезть в чужую тему.