Procedūros ir funkcijos (klaidos programose)

SVeiki, gal galite padėti 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.

Eva33, procedūra neveikė, nes pirmiausia tu jos neuždariai, o pačioje procedūroje blogai deklaravai kintamuosius.

Kompiliuota su FPC 2.6.4
program project1;
var m,n,k:integer;

procedure mano (n,m:integer; var k:integer);
var a,x,p,y:integer;
begin
  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;

begin
  writeln('Įveskite skaičių m: ');
  readln(n);
  writeln('Įveskite skaičių n: ');
  readln(m);
  writeln;
  k:=0;
  mano(n,m,k);
  writeln;
  writeln('Laimėjusių kiekis: ', k);


  Readln;
end.