в массиве из 10 целых чисел вычеслить разность между наибольшим элементом и средним арифметическим всех элементов массива — Pascal(Паскаль)

program Project1;

{$APPTYPE CONSOLE}

var
 a:array[1..10] of integer;
 i:integer;
 max,suma:integer;
 ser,r:real;

begin
 for I := 1 to 10 do
   readln(a[i]);
   max:=a[1];
   suma:=0;

for I := 1 to 10 do
 if max<a[i]  then
  max:=a[i];

for I := 1 to 10 do
  suma:=suma+a[i];

  ser:=suma/10;
  r:=max-ser;

  writeln('raznica=',r:0:2);
  readln;


end.