Un programme ki ne s'execute po sur pascal!!

Bonjour,
je viens d'apprendre les premières notions et de programmation et de language pascal
j'ai un devoir à rendre: élaborer un programme ki lit un nombre entier naturel n et donne le carré parfait inférieur ou égal à n(le programme doit contenir obligatoirement une fonction)
g élaboré le programme suivant:
program carreeinfoueegal;
uses WinCrt;
var a,f:integer;
function fonction(a:integer):integer;
var b:integer;
begin
b:=trunc(sqrt(a));
fonction:=b*b;
end;
begin;
write('donner un entier positif');
repeat readln(a)
until a>0;
f:=fonction(a);
writeln('le carré parfait inf ou egal à a est',f);
end.

qd g compilé y avait aucune erreur donc j'ai essayé de l'executer mais même si je donne une valeur de a y a aucun résultat ki s'affiche et qd je clique sur 'entrer' ca se ferme
what's wrong with this???????????????????????????????????????????????????
j'attends vos réponses pllllllllllllllllllllllllllllllllllzzzzzzzzzzzzzzz
je dois rendre ce devoir aprèèès demain