Neveikia procedūra Paskalyje

padėkite surasti klaidą, neveikia procedūra.

program Bevarde11;

var m,n,k:integer;

procedure mano (k,n,m:integer; var a,x,p,y:integer);

begin

k:=0;

a:=n;

while a<m do

begin

a:=a+1;

x:=a mod 10;

p:=(a div 10) mod 10;

y:=a div 100;

if a=x*100+p*10+y then k:=k+1;

end;

begin

writeln('Įveskite skaičių m: ');

readln(n);

writeln('Įveskite skaičių n: ');

readln(m);

writeln;

mano (k,n,m,a,x,p,y );

writeln;

writeln('Laimėjusių kiekis: ', k);

Readln;

end.

O kokia klaida?

O kokia klaida?

tame esmė, kad nerodo klaidos, bet ir nekompiliuoja ir nevykdo, žodžiu nereaguoja visai :)

program la;

procedure mano (n, m : integer; var k : integer);

var a, x, p, y : integer;

begin

k:=0;

a:=n;

while a<m do

begin

a:=a+1;

x:=a mod 10;

p:=(a div 10) mod 10;

y:=a div 100;

if a=(x*100+p*10+y)

then

k:=k+1;

end;

end;

var m, n, k : integer;

begin

writeln('Įveskite skaičių m: ');

readln(n);

writeln('Įveskite skaičių n: ');

readln(m);

writeln;

mano (n, m, k);

writeln('Laimėjusių kiekis: ', k);

ReadLn ();

end.

program la;

procedure mano (n, m : integer; var k : integer);

var a, x, p, y : integer;

begin

k:=0;

a:=n;

while a<m do

begin

a:=a+1;

x:=a mod 10;

p:=(a div 10) mod 10;

y:=a div 100;

if a=(x*100+p*10+y)

then

k:=k+1;

end;

end;

var m, n, k : integer;

begin

writeln('Įveskite skaičių m: ');

readln(n);

writeln('Įveskite skaičių n: ');

readln(m);

writeln;

mano (n, m, k);

writeln('Laimėjusių kiekis: ', k);

ReadLn ();

end.

ačiū labai :)