Пройдет ли кирпич в прямоугольное отверствие

uses crt;
var a,b,x,y,z:real;
begin
clrscr;
writeln('vvedite razmer otver a');
readln(a);
writeln('vvedite razmer otver b');
readln(b);
writeln('vvedite razmer kirpicha x');
readln(x);
writeln('vvedite razmer kirpi y ');
readln(y);
writeln('vvedite razmer kirp  z');
readln(z);
if ((x<=a) or (x<=b)) and
((y<=b) or (y<=a))
then writeln('proxodit') else
if ((x<=a) or (x<=b)) and ((z<=b)
 or (z<=a)) then writeln('proxodit') else
if ((z<=a) or (z<=b)) and ((y<=b) or (y<=a))
then writeln('proxodit') else writeln('ne vlazit');
readln
end.

unit Kirpich;
interface
function T(a,b,c,x,y:real):boolean;
implementation
function T;
begin
T:=   ((a<=x)and(b<=y))
    or((a<=x)and(c<=y))
    or((b<=x)and(c<=y))
    or((a<=y)and(b<=x))
    or((a<=y)and(c<=x))
    or((b<=y)and(c<=x));
end;
end.

uses crt,kirpich;
var a,b,c,x,y:real;
begin
clrscr;
writeln('Пройдет ли кирпич в прямоугольное отверстие?');
writeln;
writeln('Введите три числа - размеры кирпича:');
readln(a,b,c);
writeln('Введите два числа - размеры прямоугольного отверстия:');
readln(x,y);
if T(a,b,c,x,y) then write('Пройдет!')
else write('Не пройдет!');
readln
end.