Найти максимальный из 4 чисел и сумму оставшихся (кроме максимального) — Pascal(Паскаль)

var
a,b,c,d,m1,m2,sum:integer;
begin
readln(a,b,c,d);
if a>b then m1:=a else m1:=b;
if c>d then m2:=c else m2:=d;
if m1>m2 then max:=m1 else max:=m2;
sum:=a+b+c+d-max;
writeln(sum);
readln;
end.

program grey;
uses crt;
  var
  a:array [1..10] of integer;
  max,i,n,s:integer;
begin
clrscr;
writeln ('n='); read (n);
writeln ('i=');
s:=0;
max:=a[1];
repeat
i:=i+1;
gotoxy (i*5+7,7);
read (a[i]);
if a[i]>max then max:=a[i];
s:=s+a[i];
until i>=n;
s:=s-max;
writeln('max=',max);
writeln('s=',s);
readkey
end.