Не могу найти ошибку!! не могу не как разобраться! надо до завтра.

uses crt;
type
name = (Mary, Jane, Kim, Bob, Jan, Pit, Tom);
data = record
male : boolean;
height:140..200;
end;
group = array[name] of data;
function Test(g:group):boolean;
var i,j:name;
mn:140..200;
iv:140..200;
begin
Test:=false;
mn:=140;
iv:=140;
for i:=Mary to Tom do
if (g[i].male=false)and(g[i].height>mn)then mn:=g[i].height;
writeln ('Максимальный рост из женщин = ',mn);
for i:=Mary to Tom do
if (g[i].male=true)and(g[i].height>iv) then iv:=g[i].height;
writeln ('Максимальный рост из мужчин = ',iv);
for i:=Mary to Tom do
if (g[i].male=true)and(mn<iv) then
begin
Test:=true;
break;
end;
end;
var a:group;
i:name;
s:string;
begin
clrscr;
writeln('Введите ',ord(Tom)+1,' записей:');
for i:=Mary to Tom do
begin
writeln('Запись ',ord(i)+1);
repeat
write(' Пол (муж или жен): ');readln(s);
if s='муж' then a[i].male:=true
else a[i].male:=false;
until(s='муж')or(s='жен');
repeat
write(' Рост [140..200]: ');readln(a[i].height);
until a[i].height in [140..200];
end;
if Test(a) then write('В группе есть женщина с высоким ростом ,которая ниже мужчины с самым высоким ростом')
else write('В группе нету женщин, либо в группе нету женщины с самым высоким ростом ,которая ниже самого выского мужчины');
readln;
end.