помогите с программой!пожалуйста:help:

uses crt;
const n=3;
type TStud=record
           fam:string[15];
           oc:array[1..5]of byte;
           sr:real;
           end;
var sp:array[1..n] of Tstud;
    i,j,k:integer;
begin
clrscr;
for i:=1 to n do
  begin
    writeln('Student ',i);
    write('Familia: ');readln(sp[i].fam);
    sp[i].sr:=0;
    for j:=1 to 5 do
       begin
         repeat
           write('Ocenka ',j,'=');
           readln(sp[i].oc[j]);
         until sp[i].oc[j] in [3..5];
         sp[i].sr:=sp[i].sr+sp[i].oc[j];
       end;
    sp[i].sr:=sp[i].sr/5;
  end;
clrscr;
writeln('Spisok gruppy:');
for i:=1 to n do
  begin
   write(sp[i].fam,' ');
   for j:=1 to 5 do write(sp[i].oc[j],'  ');
   write('Srednee=',sp[i].sr:0:2);
   writeln;
  end;
readln;
writeln('Naznachena povyshennaya stipendia:');
for i:=1 to n do
if sp[i].sr=5.0 then writeln(sp[i].fam);
writeln;
writeln('Naznachena obychnaya stipendia:');
for i:=1 to n do
  begin
    k:=0;
    for j:=1 to 5 do
    if ((sp[i].oc[j]=5)or(sp[i].oc[j]=4))and(sp[i].sr<5.0)
    then k:=k+1;
    if k=5 then writeln(sp[i].fam);
  end;
readln
end.