em Pascal

alguem pode me diser onde esta o erro aqui nesse comando o famoso pascal heheheh :/

program p12;uses crt;varn,c,s:integer;begin clrscr; c:=1 while(c<=10)do begin write('digite o numero'); readln(n); s:=s+n; c:=c+1; end; writeln('a soma é :',s:10:2); writeln('a media é:',(s/10):10:2); redkey; end.