pascal pgrograma

Sveiki, gal galite padėti su programa. Darysiu vienoje pogramoje kelias. kodas atrodytų maždaug taip:

program Programa;

var a : integer;

begin

readln(a);

case a of 1:

procedure pirma;

var a : integer;

begin

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

readln(a);

end;

2:

procedure antra;

var a,b : integer;

begin

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

readln(a);

writeln ('Įveskite 2 skaičių');

readln(a);

end;

readln;

end.

bet kažkas čia netaip, kur čia yra klaida?

Procedūros apsirašomos prieš pagrindinę programą, o ne jos viduje. PVZ.:

Program Ivedimas

Procedure SkaiciausIvedimas;
var a: integer;
begin
  Write('Įveskite skaičių: ');
  Readln(a);
  Writeln('Jūsų įvestas skaičius: ', a);
end;
//------------Pagrindinė programa--------------
begin
  SkaiciausIvedimas;
  Readln
end;