помогите исправить ошибки

[Euforia_PZAS09_1]

условие:
по среднему баллу результатов сессии вывести ведомость выплаты степендии 20 студентам,которые не имеют 3. студентам, которые имеют 4 - А грн.а студенту-отличнику - на 25% больше. ведомость должна состоять из порядкового номера и размера степендии.
код:
program Project;
var
srb: array [1..20] of integer;
i,stp,stp4: integer;
estp: Extended;

begin
Writeln('Vvedite stependiyu dla 4 - ');
Readln(stp4);
for i:=1 to 20 do
begin
Writeln('Vvedite sredniy ball studenta ',i,':' );
Readln(srb[i]);
end;
for i:=1 to 20 do
begin
if srb[i] = 4 then
begin
Writeln('Student: ',i,' Stependiya: ',Stp4);
end;
if srb[i] = 5 then
begin
estp:= stp4 + ((stp4/100)*25);
Writeln('Student: ',i,' Stependiya: ',stp);
end;
end;
Readln;
end.

если можно с пояснениями