Лабораторная.Записи

[Карина 1578]

Сведения о студентах вуза записаны в массиве и содержат следующую информацию (максимальное число студентов - 150): фамилия (до 12 символов), имя, пол (ч или) и информацию о зимнюю сессию 2-го курса: оценки по трем предметам (математика, компьютерные науки и украинский язык). Напишите программу, которая вводит эту информацию и печатает следующие данные:
а) название предмета, по которому нет должников.
б) вычисляет количество девушек в группе.

[Zer0]

type Studen=record
Fam,Name:string[12];
Pol:char;
Mat,Comp,Ukr:byte;
end;
VUZ=array[1..150] of Studen;

var V:VUZ; Devushki,K,i:byte; bM,bC,bU:boolean;
begin

write ('Kolichestv ostudentov: ');
readln(k);
bM:=false; bC:=false; bU:=false;
Devushki:=0;
for i:=1 to k do begin
writeln ('Studen nomer ',i);
write ('Familiya: ');
readln(V[i].fam);
write ('Imya: ');
readln(V[i].Name);
write ('Pol (M,J): ');
readln (V[i].Pol);
if Upcase(V[i].Pol)='J' then inc(DEVushki);
write ('Ball za matematiku: ');
readln (V[i].Mat);
if V[i].Mat<=2 then bM:=true;
write ('Ball za comp. nauki: ');
readln (V[i].Comp);
if V[i].Comp<=2 then bC:=true;
write ('Ball za yazik: ');
readln (V[i].Ukr);
if V[i].Ukr<=2 then bU:=true;
end;
writeln ('Devushek: ',Devushki);
if not bM then writeln ('Ned doljnikov po matanu');
if not bC then writeln ('Ned doljnikov po informatike');
if not bU then writeln ('Ned doljnikov po yaziku');
readln;
end.

Уф, не поленился даже)