Хранимая процедура в interbase (IBConsole)

[Adidas7]

Здравствуйте, добрые люди! Задание: Хранимая процедура с входными и выходными данными. По ФИО ученика вывести информацию об его успеваемости. Никак не могу найти ошибку в коде. Она выдается так:
Dynamic SQL Error
SQL error code = -104
Unexpected end of command

Вот код:

set term!!;
create procedure Proced1(FIO char(50))
returns (
Nomer_uchenika integer,Klass numeric,Parallel char(20),Predmet char(20),I_chetv numeric,
II_chetv numeric,III_chetv numeric,IV_chetv numeric,Godovaya numeric
)
as begin for
select Ucheniki.Nomer_uchenika, Ucheniki.Klass,
Ucheniki.Parallel,Uspevaemost.Predmet, Uspevaemost.I_chetv,
Uspevaemost.II_chetv, Uspevaemost.III_chetv,
Uspevaemost.IV_chetv, Uspevaemost.Godovaya
from Ucheniki inner join Uspevaemost on Ucheniki.Nomer_uchenika = Uspevaemost.Nomer_uchenika
where Ucheniki.FIO= :FIO
into :Nomer_uchenika,:Klass,:Parallel,:Predmet,:I_chetv,:II_chetv,:III_chetv,:IV_chetv,:Godovayab do suspend;
end!!
set term;!!

Схема данных:Школа.png

[Stilet]

end!!

ИМХО не хватает end для самого FOR

[Adidas7]

Сообщение от Stilet

ИМХО не хватает end для самого FOR

А что нужно добавить?

[Adidas7]

Если убрать for, ошибка та же самая.