Programavimas su Paskaliu. Keletas užduočių, jų sprendimai

Gal galit padet isspresti?

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.

Sveiki, gal galėtumėte padėti išspręsti šią užduotį?

,,Geležinkelio stotys A, B ir C yra n-ajame, m-ajame ir p-ajame geležinkelio ruožo kilometruose. Parašykite programą, kuri surastų, tarp kurių stočių atstumas yra mažiausias. Stotys nebūtinai įvardytos abecėlės tvarka, pavyzdžiui, po stoties A gali sekti stotis C.

Pasitikrinkite. Kai n = 3, m = 8, p = 15, turi būti spausdinama:
Atstumas mažiausias tarp A ir B stočių.
Kai n = 3, m = 9, p = 15, turi būti spausdinama:
Atstumai mažiausi tarp A ir B bei B ir C stočių.
Kai n = 3, m = 15, p = 9, turi būti spausdinama:
Atstumai mažiausi tarp A ir C bei B ir C stočių."