При поступлении в университет лица, получившие оценку «неудовлетворительно» на первом экзамене, ко второму экзамену (программа Паскаль)

type zap=array [1..100] of record
name:string[20];
mark:0..5;
end;
var p:zap;
i,N:integer;
c:char;
begin
readln(N); {Количество}
for i:=1 to N do
begin
p[i].name:=' ';
repeat
read(c);
p[i].name:=p[i].name+c;
until c=' ';
read(p[i].mark);
end;
for i:=1 to N do
begin
if pi[i].mark>2 then writeln(p[i].name,' ',p[i].mark)
else continue;
end;
readln;
end.