Вычислить среднее арифметическое элементов массива Y и отклоненние от среднего для каждого элемента

uses crt;
const n=14;
var y:array[1..n] of real;
    i:byte;
    sr:real;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  y[i]:=20*random-9;
  write(y[i]:5:1);
 end;
writeln;
sr:=0;
for i:=1 to n do
sr:=sr+y[i];
sr:=sr/n;
writeln('Среднее=',sr:0:1);
writeln;
writeln('Отклонение от среднего:');
for i:=1 to n do
write(y[i]-sr:5:1);
readln
end.

uses crt;
const n=13;
var z,r:array[1..n] of integer;
    i,k:byte;
begin
clrscr;
randomize;
writeln('Mассив Z:');
for i:=1 to n do
 begin
  z[i]:=random(20)-9;
  write(z[i]:4);
 end;
writeln;
k:=0;
for i:=1 to n do
if z[i]>0 then
 begin
  k:=k+1;
  r[k]:=z[i];
 end;
for i:=1 to n do
if z[i]<0 then
 begin
  k:=k+1;
  r[k]:=z[i];
 end;
{про нулевые ничего не сказано, их пропускаем}
writeln('Массив R:');
for i:=1 to k do
write(r[i]:4);
readln
end.

writeln('Mассив Z:');
for i:=1 to 13 do
 begin
   write('z[',i,']=');
   readln(z[i]);
  write(z[i]:4);
 end;
clrscr;
for i:=1 to 13 do
write(z[i],' ');
writeln;