Даны 7 чисел.найти максимальное из них. на экран вывести разность между большим и всеми исходными числами. по информатике

Program test;
Var
  n, j, max: integer;
  Numb: array[1..7] of integer;
Begin
  max := Numb[1];
  n := 1;
  for j:=2 to 7 do
  begin
      if count[j]>max then
      begin
         max := count[j];
         n:=j;
      end;
   end;
   for j:=2 to 7 do writeln ('j= ', max-count[j]);
end;
end.