[PL/SQL] Nie działająca procedura

Witam

Chciałem zabezpieczyć bazę przed wypożyczeniem samochodu, którego akurat nie ma w magazynie, bo jest już wczesniej wypożyczony i napisałem taką procedurę, która jednak nie działa
źródło http://haker.nie-spamuj.eu/sieci.html

CREATE OR REPLACE procedure dostepnosc (anrsamochodu in number, adatawypozyczenia in date ) 
return boolean is
data date;
dni number;
begin
select datawypozyczenia into data
from wypozyczenia
where nrwypozyczenia in (select nrwypozyczenia from opiswypozyczenia where nrsamochodu = anrsamochodu);
select iloscdni into dni
from wypozyczenia
where nrwypozyczenia in (select nrwypozyczenia from opiswypozyczenia where nrsamochodu = anrsamochodu);
if (data + dni) > adatawypozyczenia then
return false;
end if;
end dostep;

Na pierwszy rzut oka błąd jest tu:

gg1985 napisał(a)

CREATE OR REPLACE procedure dostepnosc (anrsamochodu in number, adatawypozyczenia in date ) 
...
end dostep;

a dokładnie: przy end zamykającym ciało procedury powinna stać jej dokładna nazwa;)