Распечатать список студентов, получивших все оценки 2.

 program wwod_swed;
uses crt;
Type birthday = Record
  dd:1..31;
    mm:string[10];
yy:integer;
end;
student=Record
famil:string[20]; 
name:string[15];
date:birthday;
ball: array[1..3] of integer;   
srball:real;    
end;
Var
gruppa: array[1..20] of  student;  
n,k:word;
i:integer;
m:real;
begin
clrscr;
Write('Сколько человек в группе? '); Readln(n);
Writeln ('введите фамилию студента:');
for i:=1 to n do
with gruppa[i] do       
begin
write(i,'  студент ');
writeln('фамилия '); Readln (Famil);
writeln('имя ');  Readln (name);
writeln('дата рождения '); Read (date.dd); Read (date.mm); Readln (date.yy);
write('оценки'); Read (ball[1]); Read (ball[2]);Readln (ball[3]);
srball:=(Ball[1]+ball[2]+ball[3])/3;
end;
 
 
 
for i:=1 to n do
with gruppa[i] do       
begin
writeln(Famil,' ',name,' ',date.dd,' ',date.mm,' ',date.yy,' ',ball[1],ball[2],ball[3],' ' ,srball);
 
end;
 
m:=gruppa[1].srball;
k:=1;
for i:=2 to n do
if m> gruppa[i].srball then  begin m:= gruppa[1].srball; k:=i; end; 
with gruppa[k] do begin
writeln (famil,' ',name, srball);
Readln;
end;
end.

program wwod_swed;
uses crt;
Type 
    birthday = Record
        dd:1..31;
        mm:string[10];
        yy:integer;
    end;
    student=Record
        famil:string[20];
        name:string[15];
        date:birthday;
        ball: array[1..3] of integer;
        srball:real;
    end;
Var
    gruppa: array[1..20] of student;
    n,k:word;
    i:integer;
    m:real;
begin
    clrscr;
    Write('Сколько человек в группе? '); 
    Readln(n);
    Writeln ('введите фамилию студента:');
    for i:=1 to n do
    with gruppa[i] do
    begin
        write(i,' студент ');
        writeln('фамилия '); 
        Readln (Famil);
        writeln('имя '); 
        Readln (name);
        writeln('дата рождения '); 
        Read (date.dd); 
        Read (date.mm); 
        Readln (date.yy);
        write('оценки'); 
        Read (ball[1]); 
        Read (ball[2]);
        Readln (ball[3]);
        srball:=(Ball[1]+ball[2]+ball[3])/3;
    end;
 
 
 
    for i:=1 to n do
        with gruppa[i] do
        begin
            if(ball[1] and ball[2] and ball[3])=2 then
            writeln(Famil,' ',name,' ',date.dd,' ',date.mm,' ',date.yy,' ',ball[1],ball[2],ball[3],' ' ,srball);
        end;
 
    Readln;
end.