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

uses crt;
type Vedom=record
           fam:string[20];
           ocn:2..5;
          end;
var a:array[1..50]of Vedom;
    n,i,j:integer;
begin
clrscr;
write('n=');readln(n);
writeln('Spisok uctenikov:');
writeln;
for i:=1 to n do
 begin
  write('familia: ');readln(a[i].fam);
  write('ocenra: ');readln(a[i].ocn);
 end;
clrscr;
Writeln('Spisok dopuschennyh:');
writeln;
for i:=1 to n do
if a[i].ocn>2 then
writeln(a[i].fam,' ',a[i].ocn);
readln
end.