Определить максимум и минимум из 4х чисел, найти разность max-min

var
max,min,i,j,x:integer;
begin
read(x);
max:=x;
min:=x;
for i:=1 to 3 do begin
read(x);
if x>max then max:=x;
if x<min then min:=x;
end;
writeln('MaX=',max);
writeln('MiN=',min);
writeln('MaX-MiN=',max-min);
end.

Program xz;
uses crt;
var a:array[1..10]of integer;
i,j,b,c,n,d,max,min,raz:integer;
begin
clrscr;
writeln ('Определить максимум и минимум из 4х чисел.найти рахность max-min');
writeln;
write ('ввкдите колво строк');
write('введите колво столбцов');
gotoxy(x*5,y+7);
read(a[i,j]);
max:=j;
for i:=1 to n do
if (max<=b)then max:=b;
if (max<=c)then max:=c;
if (max<=d)then max:=d;
writeln('maximum=',max);
min:=j;
for i:=n to 1 do
if (min>=b)then min:=b;
if (min>=c)then min:=c;
if (min>=d)then min:=d;
writeln('minimum=',min);
raz:=max-min;
writeln('raz=',raz);
readkey;
end.

Program vetvlenie;
uses crt;
var a,b,c,d,max,min,raz:integer;
begin
clrscr;
writeln ('Определить максимум и минимум из 4х чисел.найти рахность max-min.');
writeln;
write ('введите 4 числа*');
writeln;
write ('введите a=');readln(a);
write ('введите b=');readln(b);
write ('введите c=');readln(c);
write ('введите d=');readln(d);
max:=a;
if(max<=b)then max:=b;
if(max<=c)then max:=c;
if(max<=d)then max:=d;
writeln('maximum=',max);
min:=a;
if(min>=b)then min:=b;
if(min>=c)then min:=c;
if(min>=d)then min:=d;
writeln('minimum=',min);
raz:=max-min;
writeln('raz=',raz);
readkey;
end.