При поступлении в институт абитуриенты получившие «двойку» на первом экзамене ко второму экзамену не допускается. Считая Фамилии абитуриентов и их оценки после первого экзамена исходными данными, составить список допущенных ко второму экзамену — Pascal(Паскаль)

uses crt;
const n=10;
type a=record
f: string;
o: byte;
end;
var b: array[1..n] of a; i: byte;
begin
clrscr;
for i:=1 to n do
begin
write('фамилия ',i,'-ого абитуриента: ');
read(b[i].f);
write('оценка: ');
read(b[i].o);
writeln(^j);
end;
writeln('ко 2-му экзамену допущены: ');
for i:=1 to n do
if b[i].o<>2 then
writeln(i,')  ',b[i].f);
end.