[PASCAL] Fatal compilation aborted :/

program polaiobwody;

var
  r, a, pkw ,f ,p ,okw: integer;
  pk, ok: real;

procedure kolo;
begin
  writeln('Jesli chcesz obliczyc pole wpisz 1, jesli obwod wpisz 2 ');
  read(f);
   if (f=1) then polekola else
    begin
     if (f=2) then obwodkola;
    end;
end;

procedure kwadrat;
begin
  writeln('Jesli chcesz obliczyc pole kwadratu wpisz 1, jesli obwod wpisz 2 ');
  read(f);
   if (f=1) then polekwadratu else
   begin
    if (f=2) then obwodkwadratu;
   end;
end;

procedure polekola;
begin
  writeln('Podaj dlugosc promienia r: ');
  read(r);
  pk:=3.14*(r*r);
  writeln('Pole kola wynosi: ',pk:2:2);
  readln;
end;

procedure obwodkola;
begin
  writeln('Podaj dlugosc promienia r: ');
  read(r);
  ok:=2*3.14*(r);
  writeln('Obwod kola wynosi: ',ok:2:2);
  readln;
end;

procedure polekwadratu;
begin
  writeln('Podaj dlugosc boku a: ');
  read(a);
  pkw:=a*a;
  writeln('Pole kwadratu wynosi: ',pkw);
  readln;
end;

procedure obwodkwadratu;
begin
  writeln('Podaj dlugosc boku a: ');
  read(a);
  okw:=4*a;
  writeln('Obwod kwadratu wynosi: ',okw);
  readln;
end;

begin
writeln('1. Kolo');
writeln('2. Kwadrat');
writeln('Wcisnij 1 jesli chcesz przejsc do opcji obliczen kola, a 2 do opcji obliczen kwadratu');
read(p);
 if (p=1) then kolo else
  begin
 if (p=2) then kwadrat;
  end;
readln;
end.