можно ли так записать программу?



var a,a1,a2,a3,a4:integer;
BEGIN
writeln('Введите число');
readln(a);
a1:= a div 1000;
a2:= a div 100 mod 10;
a3:= a div 10 mod 10;
a4:= a mod 10;
if a1>a2
a1>a3
a1>a4
then
begin
writeln('max=',a1);
end;
if a2>a1
a2>a3
a3>a4
then
begin
writeln('max',a2);
end;
if a3>a1
a3>a2
a3>a4
then
begin
writeln('max',a3);
end;
if a4>a1
a4>a2
a4>a3
then
begin
writeln('max',a4);
end;
END.

var a,a1,a2,a3,a4:integer;BEGINwriteln('Введите число');readln(a);a1:= a div 1000;a2:= a div 100 mod 10;a3:= a div 10 mod 10;a4:= a mod 10;if (a1>=a2)and(a1>=a3)and(a1>=a4) then writeln('max = ',a1)else if (a2>=a3)and(a2>=a4) then writeln('max = ',a2) else if a3>=a4 then writeln('max = ',a3)  else writeln('max = ',a4);END.Пример:Введите число4934max = 9