Найти наибольшее среди 3-х чисел,применяя булевы выражения вместе с операциями сравнения

if (a>b=true) then
 if (a>c=true) then writeln(a)
 else  writeln(c)
 else writeln(b);

var a,b,c:integer;
    f1,f2:boolean;
begin
writeln('Введите 3 целых числа');
readln(a,b,c);
f1:=a>b;
if f1 then f2:=c>a else f2:=c>b ;
if f2 then write(c)
else if f1 then write(a)else write(b)
end.

if f1 then f2:=c>a else f2:=c>b ;//если a>b, то сравниваем c и а, иначе с и b

if f2 then write(c)//если с>a, c>b то выводим с
else if f1 then write(a)else write(b)//иначе если a>b выводим а, иначе выводим b

f1:=a>b;  //если a>b то переменая f1=true, иначе f1=false
if f1 then f2:=c>a else f2:=c>b ;//если f1=true(a>b) то
                                // то сравниваем c и a,
                                //иначе сравниваем с и b
if f2 then write(c)//если f2=true выводим с(это макс.)
else if f1 then write(a)//иначе если f1=true(a>b) выодим а
else write(b) //иначе, если f1=false(b>=a) выодим b

var a,b,c,max:integer;
begin
writeln('Введите 3 целых числа');
readln(a,b,c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
write(max)
end.