Для 7 человек, среди которых есть мужчины и женщины, хранятся следующие данные: имя, пол (true - мужской, false - женский), рост.Опишите логическую ф

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.

if (g[i].male=true)and(g[i].male=false) and(mn<iv) then

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;
flag1,flag2:boolean;
begin
clrscr;
writeln('Введите ',ord(Tom)+1,' записей:');
for i:=Mary to Tom do
begin
    writeln('Запись ',ord(i)+1);
    repeat
        write(' Пол (муж или жен): ');readln(s);
        if s='муж' then 
        begin
            a[i].male:=true
            flag1:=true;
        end;
        else 
        begin
            a[i].male:=false;
            flag2:=true;
        end;
    until(s='муж')or(s='жен');
    repeat
        write(' Рост [140..200]: ');readln(a[i].height);
    until a[i].height in [140..200];
end;
if (Test(a))and(flag1)and(flag2) then write('В группе есть женщина с высоким ростом ,которая ниже мужчины с самым высоким ростом')
if (Test(a)=false)and(flag1)and(flag2) then write('В группе нету женщины с самым высоким ростом ,которая ниже самого выского мужчины');
if ((flag1)and(flag2))=false) then write('В группе присутствует только мужчины или только женщины');
readln;
end.

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;
y:integer;
begin
y:=0;
Test:=false;
for i:=Mary to Tom do
if (g[i].male=false)and(g[i].height>mn)then mn:=g[i].height;
if (mn=0) then writeln ('Не существует женщин')
else writeln ('Максимальный рост из женщин = ',mn);
for i:=Mary to Tom do
if (g[i].male=true)and(g[i].height>iv) then iv:=g[i].height;
if (iv=0) then writeln ('Не существует мужчин')
else writeln ('Максимальный рост из мужчин = ',iv);
if(mn<iv)and (mn>0) and (iv>0)then y:=iv-mn;
if (y>0) then writeln ('Самая высокая женщина ниже самого высокого мужчину на ',y)
else writeln ('Нету самой высокой женщины ниже самого высокого мужчины');
if (mn<iv) and (mn>0) and (iv>0) then writeln ('Самая высокая женщина с ростом ',mn, ' ниже самого высокого мужчины с ростом ',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.