Записи и строки: напечатать список лиц, учащихся в КрПИ

program sem3;
uses crt;
type anketa=record
sename:string[25];
n_otd,stazh:integer;
end;
var sotr:array[1..3] of anketa;
i,n:byte;
begin
clrscr;
for i:=1 to 3 do begin
                  writeln('enter info about ',i,' sotrudnik');
                  writeln('enter sename of sotrudnik');
                  readln(sotr[i].sename);
                  writeln('enter n_otd');
                  readln(sotr[i].n_otd);
                  writeln('enter stazh');
                  readln(sotr[i].stazh);
                  end;
writeln('end enter');
writeln;
writeln('enter stazh');
readln(n);
for i:=1 to 3 do if sotr[i].stazh>n then writeln(sotr[i].sename);
readln;
end.

Var s:string;
............................
s:=('КрПИ');
for i:=1 to 3 do if stud[i].inst=s then writeln(stud[i].sename);