Даны 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.