записи

[hartman]

Сформировать массив студентов из 15 записей, содержащих информацию: фамилия и инициалы, группа, количество выполненных лабораторных работ (1..10). Напечатать фамилии студентов, выполнивших более 6 работ и список студентов, выполнивших менее двух.
type otchet=record
fio:string[40];
gr:string[3];
lab:string[10];
end;
var
zap:array[1..16] of otchet;
i,x:byte;
begin
for i:=1 to 15 do
with zap[i] do
begin
writeln('Введите фамилию и инициалы студента');
readln(fio);
writeln('Введите группу студента');
readln(gr);
writeln('Введите кол-во выполненных работ');
readln(lab);
end;
val(lab,x);
for i:=1 to 15 do
if x>6 then
writeln('фамилия студента',zap[i])
else if x<2 then writeln('фамилия студента',zap[i]);
end.