Pascal 7.0 Hjælp

du skal vælge en real


function Moms(belob, MomsSats: Real): Real;
begin
  Result := belob*MomsSats;
end;


procedure beregnMoms;
var
  Total : Real;
begin
  Total := Moms(100, 1,25);
end;

Min kode ser sådan hvad er der forkert ??
Program moms;
Var
pris  : Integer;
moms  : Real;

Function moms(pris, MomsSats: Real): Real;
Begin
  Result := pris*MomsSats;
  End;
  Procedure beregnmoms;
  Var
    Total : Real;
    Begin
    Total := Moms(100, 1.25);



Begin
pris:=0;
write(\'Hvad er varen pris ? \'); readln(pris);
  Begin
  moms:=(pris*momsSats);
  writeln; write(\'Prisen med Moms er = \',moms,\' Kr.\'); readln(moms);
  end;
  readln;
end.

Denne kode giver et result der ser sådan ud:
1,25000000000+1 Kr.

Program moms;
Var
pris  : Integer;

Total, momssats: Real;

Begin
    pris:=0;
    write(\'Hvad er varen pris ? \'); readln(pris);
      Begin
      momssats:=1.25;
      total:=(pris*momsSats);
      writeln; write(\'Prisen med Moms er = \',total,\' Kr.\'); readln(total);
      end;
    readln;

end.
║

Hvor kan jeg finde noget i retning af
\" lær dig selv pascal på 14 dg.\"
Der findes en masse med altmuligt andet men jeg kan ikke finde noget med pascal