Написала программу,а она не работает подскажите в чем ошибка

program f1;
var x:array[1..50]of integer;
s,n,i,k:integer;
sr:real;
begin
writeln('n=');
readln(n);
s:=0;
for i:=1 to n do
writeln('x[',i,']: ');
readln(x[i]);
for i:=1 to x[i] do
if (x[i]/i) <>0 then writeln(x[i]);
k:=x[i];
for i:=1 to k do
s:=s+k;
writeln(s);
sr:=s/k;
if x[i] > sr then delete (x,i,1);
i:=i+1;
writeln(k);
readln;
end.

delete (x,i,1);

program f1;
var x:array[1..50]of integer;
s,n,i,k:integer;
sr:real;
begin
writeln('n=');
readln(n);
s:=0;
for i:=1 to n do
writeln('x[',i,']: ');
readln(x[i]);
for i:=1 to x[i] do
if (x[i]/i) <>0 then writeln(x[i]);
k:=x[i];
for i:=1 to k do
s:=s+k;
writeln(s);
sr:=s/k;
if x[i] > sr then x[i]:=x[i+1];
i:=i+1;
x[k]:=0;
writeln(k);
readln;
end.

const
  nmax = 100;
 
var
  mas: array[1..nmax] of integer;
 
var
  i, n, sum: integer;
  sr: real;
 
begin
  readln(n);
  for i := 1 to n do
  begin
    Read(mas[i]);
    sum := sum + mas[i];
  end;
  sr := sum / n;
  Writeln;
  Writeln('Средняя: ', sr);
  Writeln;
  
  for i := 1 to n do
    if mas[i] > sr then
      mas[i] := 0
    else
      write(mas[i]:4);
  
end.