Error pascal

[ivanep]

me pueden decir un error que me da en mi free pascal necesito sabes cual es, me dice que tiene una (;) sobrante pero no se cual es

uses
crt;
var
num1,num2,num3:integer;
procedure leer(var n1,n2,n3:integer);
begin
write('valor 1: ');readln(n1);
write('valor 2: ');readln(n2);
write('valor 3: ');readln(n3);
writeln;
end;

procedure evaluar(var n11,n22,n33: integer);
begin
if n11>n22 then
begin
if n11>n33 then
begin
write(n1,' es el mayor.');
end
end;
end
else
begin
if n22>n33 then
write(n33,' es el mayor');
end
else
begin
write(n22,' es el mayor');
end;

begin
ClrScr;
leer(num1,num2,num3);
evaluar(num1,num2,num3);
ReadKey;
end.

lo necesito mucha ayuda plis

[Heimish2000]

Que error te da exactamente?

[jamesjara]

A simple vista se ve un error no se si sera ese

al final falta un end;

begin
ClrScr;
leer(num1,num2,num3);
evaluar(num1,num2,num3);
ReadKey;
end.

bueno y esa fucnion no esta cerrada tampoco evaluar