Даны 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 gt; b) and (a gt; c) and (a gt; d) and (a gt; e) and (a gt; f) and (a gt; j) Then max := a;
If (b gt; a) and (b gt; c) and (b gt; d) and (b gt; e) and (b gt; f) and (b gt; j) Then max := b;
If (c gt; a) and (b lt; c) and (a gt; d) and (a gt; e) and (a gt; f) and (a gt; j) Then max := c;
If (a gt; b) and (a gt; c) and (a gt; d) and (a gt; e) and (a gt; f) and (a gt; j) Then max := a;
If (a gt; b) and (a gt; c) and (a gt; d) and (a gt; e) and (a gt; f) and (a gt; j) Then max := a;
If (a gt; b) and (a gt; c) and (a gt; d) and (a gt; e) and (a gt; f) and (a gt; j) Then max := a;
If (a gt; b) and (a gt; c) and (a gt; d) and (a gt; e) and (a gt; f) and (a gt; j) Then max := a;
Write(max=, max);
Readln;
End.