найти ошибку в программе

var n,i,s:integer;
a:array[1..100] of integer;
sa:real;
begin
writeln('vvedite razmer massiva');
readln(n);
i:=1;
while (i<=n) do
begin
writeln('a(',i,')=');
readln(a[i]);
i:=i+1;
end;
s:;
for i:=1 to n do
begin
s:=s+a[i];
sa:=s/n;
readln(sa);
end;
i:=1;
while (a[i]>sa) do
begin
writeln('a(',i,')=');
readln(a[i]);
end;
end.

var k,n,i,s:integer;
a:array[1..100] of integer;
sa:real;
begin
writeln('vvedite razmer massiva');
readln(n);
i:=0;
while (i<=n) do
begin
i:=i+1;
writeln('a(',i,')=');
readln(a[i]);
end;
s:=0;
for i:=1 to n do
s:=s+a[i];
sa:=s/n;k:=0;
for i:=1 to n do
if a[i]>sa then k:=k+1;
write(k:4);
end.

program example;
uses
   crt;
var
   a: array[1..100] of integer;
   count, i, n, sa: integer;
begin
   ClrScr;
   write('Введите размер массива: ');
   readln(n);
   i:=1;
   sa:=0;
   while (i <= n) do
      begin
         write(' a(',i,')=');
         readln(a[i]);
         sa:=sa+a[i];
         i:=i+1;
      end;
   sa:=sa div n;
   for i:=1 to n do
      if (a[i] > sa) then count:=count+1;
   write('Количество элементов, больших ср.арифм = ',sa,': ',count);
   readln;
end.