массив записи, не могу исправить ошибку

[Алекс К.]

Имеются сведения об N студентах (N – заданное число): фамилия, символьный шифр группы и 4 экзаменационных оценки. Требуется определить наименьшую из средних экзаменационных оценок студентов, а затем для каждой группы получить пронумерованные списки студентов, имеющих такое же значение средней экзаменационной оценки, или выдать сообщение, что таких студентов нет.

Program student;
const
N=4;
K=4;
var
A:array[1..N] of string[15];
B:array[1..N] of integer;
C:array[1..N,1..4] of integer;
D:array[1..K] of integer;
i,j,m,x,Y,z:integer;
min:real;
begin
for m:=1 to k do
begin
writeln('vvesti shifr',m);
readln(D[m]);
end;
for i:=1 to N do
begin
writeln('vvesti familiu',i);
readln(a[i]);
writeln('vvesti shifr');
readln(B[i]);
writeln('vvesti 4 ocenki');
for j:=1 to 4 do
readln(c[i,j]);
end;
min:=(c[1,1]+c[1,2]+c[1,3]+c[1,4])/4;
x:=0;
for i:=1 to n do
begin
for j:=1 to 4 do
x:=C[i,j]+x;
if x/4<min then min:=x/4;
end;
writeln(min:5:3,'-srednya ocenka');
for m:=1 to k do
begin
writeln('gruppa N',m,' shifr ',d[m]);
Y:=0;
for i:=1 to N do
begin
if d[m]=b[i] then
begin
z:=0;
for j:=1 to 4 do
Y:=Y+C[i,j];
if Y/4=min then
begin
writeln('u4enik ',a[i],' polu4il sredn ocenku');
z:=z+1;
end;
if z=0 then writeln('takih u4enikov net');
end;
end;
end;
end.


В результате программа должна выдать либо фамилии того (тех) студентов у кого оценка совпадает с минимальной средней оценкой, либо выдать, что таких студентов нет.
А у меня выдает то и то. ПОМОГИТЕ, ПОЖАЛУЙСТА, ИСПРАВИТЬ!

[__STDC__]

Вероятно потому что у вас на последней итерации последнего цикла z обнуляется, а if не выполняется

[Алекс К.]

А если z не должно обнуляться, тогда как это сделать?

[__STDC__]

я не смотрел код... вы не потрудились его оформить как следует (я имею ввиду поместить в теги CODE), читать неудобно... как вариант, использовать вместе с z еще какую-либо переменную... но я вообще не понимаю, зачем вы там z обнуляете? Оо..