Задача с одномерным массивом Опции

[Widess]

Условие:
вычисление среднего значения в одномерном массиве для всех элементов между первым и вторым нулем в массиве (или от первого нулевого значения до конца массива). Длина и значения элементов массива вводятся с клавиатуры. Печатать элементы массива по: 5 штук, формату :12.

Долго мучаюсь, переделываю по-разному, но правильно никак не считает. Помогите, пожалуйста, найти ошибки:

PROGRAM LAB;
VAR
i, l, j, A, b, c, d :integer;
N, Sr, Sum :real;
Number :array[1..50] of real;
Fout :text;
BEGIN
Sum:=0;
writeln('Skolko budet chisel?');
readln(A);
for i:=1 to A do
  begin
  writeln('Vvedite ocherednoe chislo');
  readln(Number[i]);
  end;
assign(Fout,'A:\LAB.TXT');
rewrite(Fout);
writeln(Fout,'Ishodniy massiv iz ',A,' elementov');
for i:=1 to A do
  begin
  write(Fout,Number[i]:12);
  if i mod 5 = 0 then writeln(Fout);
  end;
writeln(Fout);
for i:=1 to A do 
  begin
  if Number[i] = 0 then c:=i;
    begin
    for k:=c to A do
      begin
      if Number[k]>0 then
      Sum:=Sum+Number[k];
      if Number[k]=0 then d:=k;
      b:=d-c-1;
      Sr:=Sum/b
      end;
    end;
  end;
write(Fout,'Srednee znachenie ravno ',Sr,'');
close(Fout);
END.

И еще вопрос, не относящийся к этой задаче: как сделать так, чтобы в массиве с произвольными символами программа находила только символы кириллицы?
Заранее спасибо.