Contador y mostrar en pantalla

crear un contador hasta en numero 10 y mandar una mensaje una vez terminado (mostrando todo en pantalla).

program contador;
uses crt;
var
x,con:integer;
begin
clrscr;
con:=0;
repeat
con:=con+1;
delay(1000);
writeln(con);
until
(con=10);
if(con=10)then
Write('Hemos terminado');
readkey;
end.

------------------------
program contador;
uses crt;
var
x,con:integer;
begin
clrscr;
con:=0;
repeat {habre el ciclo de repeticion}
con:=con+1; {contador: sumara 1 cada ves que se repita el ciclo de repeticion}
delay(1000); {comando para reducir o aumentar la velocidad del ciclo (1000=1 segundo)}
writeln(con); {mostrara el valor del contador en pantalla}
until {until= hasta, se repetira el ciclo hasta que se cunpla una condicion}
(con=10); {Condicion de parada del cliclo}
if(con=10)then {condicion, una vez el contador llegue a 10 entonces:}
Write('Hemos terminado'); {mostrara el mensaje}
readkey;
end.