PASCAL - proceduros skaitymas

Sveiki, pasirasiau tokia programa:

program plytos_svoris;
const lyginsvoris=1.5;
     pi=3.14;

procedure plytos_mase(s,n,d,mas:real);
var pl,ilg,Vs,Vp:real;

begin

writeln('Parasykite plytos stori:');
readln(s);

  pl:=2*s;
  ilg:=4*s;
  Vp:=s*pl*ilg;

   writeln('Nurodykite skyliu kieki plytoje:');
   readln(n);

    if n>0 then
            begin

              writeln('Nurodykite skyles skersmeni:');
              readln(d);

             Vs:=(d/2*d/2*pi*s)*n;
             mas:=(Vp-Vs)*lyginsvoris;
             writeln('Plytos mase lygi - ',mas:2:4,' kg');
             readln(mas);
             end

                else
                  begin
                   mas:=Vp*lyginsvoris;
                   writeln('Plytos mase lygi - ',mas:2:4,' kg');
                   readln(mas);
                   end;
end;

begin
 plytos_mase(s,n,d,mas:real);// neskaito sitos vietos
 readln;
end.

Ir neskaito man proceduros. Paaiskinkit kas blogai ir ka reikia pataisyti :)

s,n,d,mas:real situos kintamuosius pagrindineje programoje irasyk

program plytos_svoris;
const lyginsvoris=1.5;
     pi=3.14;

procedure plytos_mase(s,n,d,mas:real);
var pl,ilg,Vs,Vp:real;

begin

writeln('Parasykite plytos stori:');
readln(s);

  pl:=2*s;
  ilg:=4*s;
  Vp:=s*pl*ilg;

   writeln('Nurodykite skyliu kieki plytoje:');
   readln(n);

	if n>0 then
        	begin

          	writeln('Nurodykite skyles skersmeni:');
          	readln(d);

             Vs:=(d/2*d/2*pi*s)*n;
             mas:=(Vp-Vs)*lyginsvoris;
             writeln('Plytos mase lygi - ',mas:2:4,' kg');
             readln(mas);
             end

            	else
              	begin
                   mas:=Vp*lyginsvoris;
                   writeln('Plytos mase lygi - ',mas:2:4,' kg');
                   readln(mas);
                   end;
end;

  var s, n, d, mas : real;    // apsirašom kintamuosius
begin
  plytos_mase(s,n,d,mas);// čia nebegalime nurodyti duomenų tipo, t.y. negalime rašyti :real
 readln;
end.

dekui uz pagalba :)

Prie to pačio

pi=3.14

Pascal jau turi pi reikšmę. Tai užtenka naudoti pi tiesiog, nereik kurti const naujos.