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