Array Problem, ein kleines Programm - Hilfe

[meta]

Würden Sie mir bitte mit dem folgenden Programm helfen?

schreiben sie ein programm, das 10 Realwerte von der Tastatur übernimmt und die Anzahl aller Zahlen gleich Null und die Anzahl aller Zahlen im Bereich 3<=x<=5 feststellt und den Mittelwert ermittelt.

Ich habe bis jetzt folgendes gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const n=9;
type feld=array [0..n] of integer;
var A:Feld;
var i,anzahl0:integer;
var anzahl,m,summe: real;
begin

writeln('geben sie die Werte ein');
for i:=0 to n do readln (A[i]);
writeln('hier sind die werte');
for i:=0 to n do write(A[i]);



anzahl:=0;
summe:=0;

for i:=0 to n do
if A[i]<=5 then
if A[i]>=3 then
anzahl:=anzahl+1;
summe:=summe+i;
m:=summe/anzahl;
writeln('anzahl',anzahl);
writeln('summe',summe);
writeln('Mittelwert',m);




anzahl0:=0;
for i:=0 to n do
if A[i]=0 then
anzahl0:=anzahl0 +1;
writeln('anzahl von 0 ist ', anzahl0);




   end;

Dies funktioniert, aber nicht ganz richtig. die Zahlen werden nicht richtig summiert.es kommt immer "10" raus
Warum kann ich bei der If-Anweisung folgendes nicht schreiben? : " if A[i]<=5 and A[i]>=3 then...."

dabei bekomme ich die Fehlermeldung: "Unkompatible Typen.."

wie kann ich dieses Problem lösen!??

Vielem Dank im Voraus!

[edit=Admin]Code in Delphi-Tags gesetzt. Mfg, Daniel[/edit]