Pascal

Bonjour, SVP qui peut m'aider de corriger le programme suivant en pascal

program kap;

uses wincrt;

var k,n:integer ;

procedure saisie(var k:integer;n:integer);

begin

repeat

writeln('entrer k ');

readln(k);

until (k >= 1) and (k <= 1000) ;

n:=0;

case k of

1..9 : n:=1;

10..99 : n:=2;

100..999 : n:=3;

else

n := 4;

end;



function verif(k:integer;n:integer):integer ;

var e,p,p2 :integer;

ch2,ch : string;

begin

p:=0;

p2:=0;

str(sqr(k),ch,e);

ch2 := copy(ch,legnth(ch)-n+1,n);

delete(ch,length(ch)-n+1,n);

val(ch,p,e);

val(ch2,p2,e);



verif :=p+p2;

end;



procedure kaprekar(k:integer);

begin

if verif(k;n) = k then

writeln('le nombre est kaprekar');

else

writeln('le nbr n''est pas kaprekar');

end;



begin

saisie(k;n);

kaprekar(k);

end.