var a,b:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
if a>b then label1.Caption:= 'si vyssi o ' + inttostr(a-b) + ' cm';
if a<b then label1.Caption:= 'kamarat je  vyssi o ' + inttostr(b-a) + ' cm';
if a=b then label1.Caption:= 'ste rovnako vysoki';

end;

end.