Даны 7 чисел.Найти максимальное из них. На экран вывести разность между большим и всеми исходными числами. СРОЧНО ПОМОГИТЕ

Program Crt;Var a,b,c,d,e,f,j,max:Integer;Begin Write(\'a = \'); Readln(a); Write(\'b = \'); Readln(b); Write(\'c = \'); Readln(c); Write(\'d = \'); Readln(d); Write(\'e = \'); Readln(e); Write(\'f = \'); Readln(f); Write(\'j = \'); Readln(j);If (a > b) and (a > c) and (a > d) and (a > e) and (a > f) and (a > j) Then max := a;If (b > a) and (b > c) and (b > d) and (b > e) and (b > f) and (b > j) Then max := b;If (c > a) and (b < c) and (a > d) and (a > e) and (a > f) and (a > j) Then max := c;If (a > b) and (a > c) and (a > d) and (a > e) and (a > f) and (a > j) Then max := a;If (a > b) and (a > c) and (a > d) and (a > e) and (a > f) and (a > j) Then max := a;If (a > b) and (a > c) and (a > d) and (a > e) and (a > f) and (a > j) Then max := a;If (a > b) and (a > c) and (a > d) and (a > e) and (a > f) and (a > j) Then max := a; Write(\'max=\', max); Readln;End.