С клавиатуры вводятся числа от 1 до 9 до тех пор, пока не будет введен 0. Посчитайте количество единиц в этой последовательности,

Запишем программу для нахождения количество единиц в этой последовательности, количество двоек, количество троек и так далее в Паскале.var F:file of integer;A:array[1..100] of integer;I,N,K,S:Integer;beginReadLN(I);Assign(F,\'Col.in\');ReWrite(F);repeatInc(K);Write(F,I);ReadLn(i);until I = 0;Close(F);ReSet(F);repeatInc(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.