QUAL É O MAIOR

O CODIGO

Program Wich_the_bigger;
var
a,b,c,n1:integer;
Begin
repeat
writeln('introduza os dados');
readln(a);
readln(b);
readln(c);
if a>b then
begin
if a>c then
writeln('Main',a)
end
else
begin
if b>c then
writeln('Main',b)
else
writeln('Main',c);
end;
writeln('quer sair?');
writeln('1-sim');
writeln('2-nao');
readln(n1)
until n1 = 1
End.

O RESULTADO FINAL