С клавиатуры вводятся числа от 1 до 9 до тех пор,

Запишем программку для нахождения количество единиц в этой последовательности, количество двоек, количество троек и так далее в Паскале.
var F:file of integer;
A:array[1..100] of integer;
I,N,K,S:Integer;
begin
ReadLN(I);
Assign(F,Col.in);
ReWrite(F);
repeat
Inc(K);
Write(F,I);
ReadLn(i);
until I = 0;
Close(F);
ReSet(F);
repeat
Inc(I);
Read(F,A[i]);
until EoF(F);
Assign(F,Col.out);
ReWrite(F);
for n:=1 to 9 do
begin
for i:=1 to k do
if A[i] = n then
Inc(S);
Write(F,S);
S:=0;
end;
Close(F);
end.