Переделать код

[masterstvo2012]

Переделать код

помогите переделать код программы под данное условие
Дана ведомость абитуриентов, сдавших вступительные экзамены в институт (ее можно дополнить):
Ф.И.О. Оценки Местожительство
Иванов А.Г. 9 7 5 Вологда
Петров Л.Л 9 9 9 Грязовец
Раковский Д.Г. 4 4 5 Сокол
Акимова Я.С. 9 5 4 Харовск
Определить количество абитуриентов, получивших хотя бы одну оценку «7».
tehno035
program z1;
uses crt;
const nmax=20;
type stud=record
fio:string[20];
ocn:array[1..3] of integer;
mzt:string[20];
srb:real;
end;
var gruppa: array[1..nmax] of stud;
n,i,j,k:integer;
begin
clrscr;
repeat
write('Количество студентов от 1 до ',nmax,' n=');
readln;
until n in [1..nmax];
writeln('Введите данные о студентах');
for i:=1 to n do
begin
writeln('Студент ',i);
with gruppa do
begin
write('Фамилия И.О: ');readln(fio);
writeln('Введите 3 оценки от 2 до 10');
srb:=0;
for j:=1 to 3 do
begin
repeat
readln(ocn[j]);
until ocn[j] in [2..10];
srb:=srb+ocn[j];
end;
srb:=srb/3;
write('Место жительства(город): ');readln(mzt)
end;
end;
writeln('Список студентов со ср.баллм больше 6 и фамилия на А:');
k:=0;
for i:=1 to n do
with gruppa doif(srb>6)and(fio[1]='А') then
if(srb>6)and(fio[1]='А') then
begin
k:=1;
writeln(gruppa.fio,' ',srb:0:2);
end;
if k=0 then write('Таких студентов нет');
readln;
end.

 

[Vladimir_S]

помогите переделать код программы

Пожалуйста:

var
 gruppa: array[1..nmax] of stud;
 n,i,j,k:integer;
 [COLOR=Red]b:boolean;[/COLOR]
begin
 ...
 k:=0;
 writeln('Список студентов, получивших хотя бы одну оценку "7":');
 for i:=1 to n do
  begin
   b:=false;
   with gruppa[i] do
    begin
     for j:=1 to 3 do if ocn[j]=7 then b:=true;
     if b then
      begin
       k:=1;
       writeln(fio);
      end;
    end;
  end;
 if k=0 then write('Таких студентов нет');
 readln;
end.