masterstvo2012

помогите переделать код программы под данное условие
Дана ведомость абитуриентов, сдавших вступительные экзамены в институт (ее можно дополнить):
Ф.И.О. Оценки Местожительство
Иванов А.Г. 9 7 5 Вологда
Петров Л.Л 9 9 9 Грязовец
Раковский Д.Г. 4 4 5 Сокол
Акимова Я.С. 9 5 4 Харовск
Определить количество абитуриентов, получивших хотя бы одну оценку «7».

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(n);
until n in [1..nmax];
writeln('Введите данные о студентах');
for i:=1 to n do
begin
writeln('Студент ',i);
with gruppa[i] 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[i] doif(srb>6)and(fio[1]='А') then
if(srb>6)and(fio[1]='А') then
begin
k:=1;
writeln(gruppa[i].fio,' ',srb:0:2);
end;
if k=0 then write('Таких студентов нет');
readln;
end.

Vladimir_S

Пожалуйста: